extra/pair-rocket/pair-rocket-tests.factor

   1 ! Copyright (C) 2009 Joe Groff.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel pair-rocket tools.test ;
   4 IN: pair-rocket.tests
   5
   6 { { "a" 1 } } [ "a" => 1 ] unit-test
   7 { { { "a" } { 1 } } } [ { "a" } => { 1 } ] unit-test
   8 { { drop 1 } } [ drop => 1 ] unit-test
   9
  10 { H{ { "zippity" 5 } { "doo" 2 } { "dah" 7 } } }
  11 [ H{ "zippity" => 5 "doo" => 2 "dah" => 7 } ] unit-test