SYNOPSIS

use Test::Data qw(Array);

DESCRIPTION

Functions

array_any_ok( ITEM, ARRAY [, NAME] )

Ok if any element of ARRAY is ITEM.

array_none_ok( ITEM, ARRAY [, NAME] )

Ok if no element of ARRAY is ITEM.

array_once_ok( ITEM, ARRAY [, NAME] )

Ok if only one element of ARRAY is ITEM.

array_multiple_ok( ITEM, ARRAY [, NAME] )

Ok if more than one element of ARRAY is ITEM.

array_max_ok( NUMBER, ARRAY [, NAME] )

Ok if all elements of ARRAY are numerically less than or equal to NUMBER.

array_min_ok( NUMBER, ARRAY [, NAME] )

Ok if all elements of ARRAY are numerically greater than or equal to NUMBER.

array_maxstr_ok( ITEM, ARRAY [, NAME] )

Ok if all elements of ARRAY are asciibetically less than or equal to MAX.

array_minstr_ok( ITEM, ARRAY [, NAME] )

Ok if all elements of ARRAY are asciibetically greater than or equal to MAX.

array_sum_ok( SUM, ARRAY [, NAME] )

Ok if the numerical sum of ARRAY is SUM.

array_empty_ok( ARRAY [, NAME] )

Ok if the array contains no elements.

array_length_ok( ARRAY, LENGTH [, NAME] )

Ok if the array contains LENGTH number of elements.

array_sortedstr_ascending_ok( ARRAY, [, NAME] )

Ok if each succeeding element is asciibetically greater than or equal to the one before.

array_sortedstr_descending_ok( ARRAY, [, NAME] )

Ok if each succeeding element is asciibetically less than or equal to the one before.

array_sorted_ascending_ok( ARRAY, [, NAME] )

Ok if each succeeding element is numerically greater than or equal to the one before.

array_sorted_descending_ok( ARRAY, [, NAME] )

Ok if each succeeding element is numerically less than or equal to the one before.

SOURCE AVAILABILITY

This source is in Github:

        https://github.com/briandfoy/test-data

AUTHOR

brian d foy, "<[email protected]>"

COPYRIGHT AND LICENSE

Copyright (c) 2002-2012 brian d foy. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.