Commit dcefd620 authored by Radford Neal's avatar Radford Neal

fix test

parent adbf5561
...@@ -122,7 +122,7 @@ contr.sum(2) # needed drop=FALSE at one point. ...@@ -122,7 +122,7 @@ contr.sum(2) # needed drop=FALSE at one point.
## Check correct serialize output, and correct unserialization. ## Check correct serialize output, and correct unserialization.
a <- serialize(quote(0x12345678L+0.1),NULL) a <- serialize(quote(0x12345678L+0.1-0.1i),NULL,nosharing=TRUE)
print(a[-(7:10)]) # eliminate R version number print(a[-(7:10)]) # eliminate R version number
print(unserialize(a)) print(unserialize(a))
print(0x12345678L) print(0x12345678L)
...@@ -736,13 +736,15 @@ b . 1 ...@@ -736,13 +736,15 @@ b . 1
> >
> ## Check correct serialize output, and correct unserialization. > ## Check correct serialize output, and correct unserialization.
> >
> a <- serialize(quote(0x12345678L+0.1),NULL) > a <- serialize(quote(0x12345678L+0.1-0.1i),NULL,nosharing=TRUE)
> print(a[-(7:10)]) # eliminate R version number > print(a[-(7:10)]) # eliminate R version number
[1] 58 0a 00 00 00 02 00 02 03 00 00 00 00 06 00 00 00 01 00 04 00 09 00 00 00 [1] 58 0a 00 00 00 02 00 02 03 00 00 00 00 06 00 00 00 01 00 04 00 09 00 00 00
[26] 01 2b 00 00 00 02 00 00 00 0d 00 00 00 01 12 34 56 78 00 00 00 02 00 00 00 [26] 01 2d 00 00 00 02 00 00 00 06 00 00 00 01 00 04 00 09 00 00 00 01 2b 00 00
[51] 0e 00 00 00 01 3f b9 99 99 99 99 99 9a 00 00 00 fe [51] 00 02 00 00 00 0d 00 00 00 01 12 34 56 78 00 00 00 02 00 00 00 0e 00 00 00
[76] 01 3f b9 99 99 99 99 99 9a 00 00 00 fe 00 00 00 02 00 00 00 0f 00 00 00 01
[101] 00 00 00 00 00 00 00 00 3f b9 99 99 99 99 99 9a 00 00 00 fe
> print(unserialize(a)) > print(unserialize(a))
305419896L + 0.1 305419896L + 0.1 - 0.1i
> print(0x12345678L) > print(0x12345678L)
[1] 305419896 [1] 305419896
> >
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment