basis/persistent/heaps/heaps-tests.factor

   1 USING: persistent.heaps tools.test ;
   2 IN: persistent.heaps.tests
   3
   4 CONSTANT: 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