IN: temporary
USING: kernel matrices test ;

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 1 0 }
        { 0 0 0 1 }
    }
] [
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 1 0 }
        { 0 0 0 1 }
    } echelon
] unit-test

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 1 0 }
        { 0 0 0 1 }
    }
] [
    {
        { 1 0 0 0 }
        { 1 1 0 0 }
        { 1 0 1 0 }
        { 1 0 0 1 }
    } echelon
] unit-test

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 1 0 }
        { 0 0 0 1 }
    }
] [
    {
        { 1 0 0 0 }
        { 1 1 0 0 }
        { 1 0 1 0 }
        { 1 1 0 1 }
    } echelon
] unit-test

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 1 0 }
        { 0 0 0 1 }
    }
] [
    {
        { 1 0 0 0 }
        { 1 1 0 0 }
        { 1 1 0 1 }
        { 1 0 1 0 }
    } echelon
] unit-test

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 0 0 }
        { 0 0 0 0 }
    }
] [
    {
        { 0 1 0 0 }
        { 1 0 0 0 }
        { 1 0 0 0 }
        { 1 0 0 0 }
    } [
        [ 1 ] [ 0 0 pivot-row ] unit-test
        1 0 do-row
    ] with-matrix
] unit-test

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 0 0 }
        { 0 0 0 0 }
    }
] [
    {
        { 0 1 0 0 }
        { 1 0 0 0 }
        { 1 0 0 0 }
        { 1 0 0 0 }
    } echelon
] unit-test

[
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 0 0 0 1 }
        { 0 0 0 0 }
    }
] [
    {
        { 1 0 0 0 }
        { 0 1 0 0 }
        { 1 0 0 1 }
        { 1 0 0 1 }
    } echelon
] unit-test

[
    {
        { 1 0 0 1 }
        { 0 1 0 1 }
        { 0 0 0 -1 }
        { 0 0 0 0 }
    }
] [
    {
        { 0 1 0 1 }
        { 1 0 0 1 }
        { 1 0 0 0 }
        { 1 1 0 1 }
    } echelon
] unit-test

[
    1 3
] [
    {
        { 0 1 0 1 }
        { 1 0 0 1 }
        { 1 0 0 0 }
        { 1 1 0 1 }
    } null/rank
] unit-test

[
    1 3
] [
    {
        { 0 0 0 0 0 1 0 1 }
        { 0 0 0 0 1 0 0 1 }
        { 0 0 0 0 1 0 0 0 }
        { 0 0 0 0 1 1 0 1 }
    } null/rank
] unit-test