basis/persistent/heaps/heaps-tests.factor

   1 USING: persistent.heaps tools.test ;
   2 IN: persistent.heaps.tests
   3
   4 : test-input
   5     { { "hello" 3 } { "goodbye" 2 } { "whatever" 5 }
   6       { "foo" 1 } { "bar" -1 } { "baz" -7 } { "bing" 0 } } ;
   7
   8 [
   9     { { "baz" -7 } { "bar" -1 } { "bing" 0 } { "foo" 1 }
  10       { "goodbye" 2 } { "hello" 3 } { "whatever" 5 } }
  11 ] [ test-input assoc>pheap pheap>alist ] unit-test