factor/basis/persistent/vectors/vectors-tests.factor

IN: persistent-vectors.tests
USING: accessors tools.test persistent.vectors
persistent.sequences sequences kernel arrays random namespaces
vectors math math.order ;

{ 0 } [ PV{ } length ] unit-test

{ 1 } [ 3 PV{ } ppush length ] unit-test

{ 3 } [ 3 PV{ } ppush first ] unit-test

{ PV{ 3 1 3 3 7 } } [
    PV{ } { 3 1 3 3 7 } [ swap ppush ] each
] unit-test

{ { 3 1 3 3 7 } } [
    PV{ } { 3 1 3 3 7 } [ swap ppush ] each >array
] unit-test

{ 100 1060 2000 10000 100000 1000000 } [
    [ t ] swap [ iota dup >persistent-vector sequence= ] curry unit-test
] each

{ } [ 10000 [ 16 random-bits ] PV{ } replicate-as "1" set ] unit-test
{ } [ "1" get >vector "2" set ] unit-test

{ t } [
    3000 iota [
        drop
        16 random-bits 10000 random
        [ "1" [ new-nth ] change ]
        [ "2" [ new-nth ] change ] 2bi
        "1" get "2" get sequence=
    ] all?
] unit-test

[ PV{ } ppop ] [ empty-error? ] must-fail-with

{ t } [ PV{ 3 } ppop empty? ] unit-test

{ PV{ 3 7 } } [ PV{ 3 7 6 } ppop ] unit-test

{ PV{ 3 7 6 5 } } [ 5 PV{ 3 7 6 } ppush ] unit-test

{ } [ PV{ } "1" set ] unit-test
{ } [ V{ } clone "2" set ] unit-test

: push/pop-test ( vec -- vec' ) 3 swap ppush 3 swap ppush ppop ;

{ } [ PV{ } 10000 [ push/pop-test ] times drop ] unit-test

{ PV{ } } [
    PV{ }
    10000 [ 1 swap ppush ] times
    10000 [ ppop ] times
] unit-test

{ t } [
    10000 iota >persistent-vector 752 [ ppop ] times dup length iota sequence=
] unit-test

{ t } [
    100 iota [
        drop
        100 random [
            16 random-bits [ "1" [ ppush ] change ] [ "2" get push ] bi
        ] times
        100 random "1" get length min [
            "1" [ ppop ] change
            "2" get pop*
        ] times
        "1" get "2" get sequence=
    ] all?
] unit-test