! Copyright (C) 2012 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays.shaped kernel tools.test ;
IN: arrays.shaped.tests

[ t ] [
    { 5 5 } increasing
    {
        { 0 1 2 3 4 }
        { 5 6 7 8 9 }
        { 10 11 12 13 14 }
        { 15 16 17 18 19 }
        { 20 21 22 23 24 }
    } >shaped-array =
] unit-test

[ { 5 5 } ] [
    {
        { 0 1 2 3 4 }
        { 5 6 7 8 9 }
        { 10 11 12 13 14 }
        { 15 16 17 18 19 }
        { 20 21 22 23 24 }
    } >shaped-array shape>>
] unit-test

[ { 5 5 } ] [
    {
        { 0 1 2 3 4 }
        { 5 6 7 8 9 }
        { 10 11 12 13 14 }
        { 15 16 17 18 19 }
        { 20 21 22 23 24 }
    } >shaped-array shape
] unit-test