steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bson: fix broken unit test

db4
Slava Pestov 2009-07-13 22:59:51 -05:00
parent 5ccf7bc99f
commit 05343e88ba
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/bson/bson-tests.factor
View File

@ -6,9 +6,6 @@ IN: bson.tests
: turnaround ( value -- value ) : turnaround ( value -- value )
assoc>bv >byte-array binary [ H{ } stream>assoc ] with-byte-reader ; assoc>bv >byte-array binary [ H{ } stream>assoc ] with-byte-reader ;
M: timestamp equal? ( obj1 obj2 -- ? )
[ timestamp>millis ] bi@ = ;
[ H{ { "a" "a string" } } ] [ H{ { "a" "a string" } } turnaround ] unit-test [ H{ { "a" "a string" } } ] [ H{ { "a" "a string" } } turnaround ] unit-test
[ H{ { "a" "a string" } { "b" H{ { "a" "a string" } } } } ] [ H{ { "a" "a string" } { "b" H{ { "a" "a string" } } } } ]
@ -23,10 +20,9 @@ M: timestamp equal? ( obj1 obj2 -- ? )
[ H{ { "a date" T{ timestamp { year 2009 } [ H{ { "a date" T{ timestamp { year 2009 }
{ month 7 } { month 7 }
{ day 11 } { day 11 }
{ hour 11 } { hour 9 }
{ minute 8 } { minute 8 }
{ second 40+15437/200000 } { second 40+77/1000 } } } }
{ gmt-offset T{ duration { hour 2 } } } } } }
] ]
[ H{ { "a date" T{ timestamp { year 2009 } [ H{ { "a date" T{ timestamp { year 2009 }
{ month 7 } { month 7 }