extra/sequences/padded/padded-tests.factor

   1 ! Copyright (C) 2020 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: arrays sequences.padded tools.test ;
   4
   5 { { 1 2 3 } } [ { 1 2 3 } 3 f <padded-head> >array ] unit-test
   6 { { f f 1 2 3 } } [ { 1 2 3 } 5 f <padded-head> >array ] unit-test
   7
   8 { { 1 2 3 } } [ { 1 2 3 } 3 f <padded-tail> >array ] unit-test
   9 { { 1 2 3 f f } } [ { 1 2 3 } 5 f <padded-tail> >array ] unit-test