From 05343e88ba9af38b7a86815a6f59cc173323c4f6 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 13 Jul 2009 22:59:51 -0500 Subject: [PATCH] bson: fix broken unit test --- extra/bson/bson-tests.factor | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/extra/bson/bson-tests.factor b/extra/bson/bson-tests.factor index e66b9c6ec2..9db3451f26 100644 --- a/extra/bson/bson-tests.factor +++ b/extra/bson/bson-tests.factor @@ -6,9 +6,6 @@ IN: bson.tests : turnaround ( value -- value ) 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" } { "b" H{ { "a" "a string" } } } } ] @@ -23,10 +20,9 @@ M: timestamp equal? ( obj1 obj2 -- ? ) [ H{ { "a date" T{ timestamp { year 2009 } { month 7 } { day 11 } - { hour 11 } + { hour 9 } { minute 8 } - { second 40+15437/200000 } - { gmt-offset T{ duration { hour 2 } } } } } } + { second 40+77/1000 } } } } ] [ H{ { "a date" T{ timestamp { year 2009 } { month 7 }