1 ! (c)2008 Joe Groff, see BSD license etc.
2 USING: kernel accessors assocs
3 sequences sequences.n-based tools.test ;
4 IN: sequences.n-based.tests
20 } clone 1 <n-based-assoc> ; inline
23 [ 12 months at* ] unit-test
25 [ 13 months at* ] unit-test
27 [ 0 months at* ] unit-test
29 [ 12 ] [ months assoc-size ] unit-test
44 } ] [ months >alist ] unit-test
60 } ] [ "Smarch" 13 months [ set-at ] keep seq>> ] unit-test
62 [ V{ } ] [ months [ clear-assoc ] keep seq>> ] unit-test