use strict;

use warnings;

use lib 't/lib';

use Std;

{

  check_test(

    sub {

      cmp_deeply(["a", "b"], ["a", "b"], "array eq");

    },

    {

      name => "array eq",

      actual_ok => 1,

      diag => "",

    }

  );

  check_test(

    sub {

      cmp_deeply(["a", "b"], ["a", "c"], "array not eq");

    },

    {

      name => "array not eq",

      actual_ok => 0,

      diag => <

Compared \$data->[1]

   got : 'b'

expect : 'c'

EOM

    }

  );

  check_test(

    sub {

      cmp_deeply(["a", "b"], ["a"], "array got DNE");

    },

    {

      name => "array got DNE",

      actual_ok => 0,

      diag => <

Compared array length of \$data

   got : array with 2 element(s)

expect : array with 1 element(s)

EOM

    }

  );

  check_test(

    sub {

      cmp_deeply(["a"], ["a", "b"], "array expected DNE");

    },

    {

      name => "array expected DNE",

      actual_ok => 0,

      diag => <

Compared array length of \$data

   got : array with 1 element(s)

expect : array with 2 element(s)

EOM

    }

  );

  check_tests(

    sub {

      cmp_deeply([[1]], [[1, 2]]);

    },

    [

      {

        actual_ok => 0,

        diag => <

Compared array length of \$data->[0]

   got : array with 1 element(s)

expect : array with 2 element(s)

EOM

      },

    ],

    "deep bad length"

  );

}