1#!/usr/bin/perl -w 2 3 4 5use strict; 6use Test::More tests => 10; 7 8#test 1 9use_ok( 'Games::Bingo::Column' ); 10 11my @ary = qw(1 2 3 4 5 6 7 8 9); 12my $c = Games::Bingo::Column->new(1, @ary); 13 14while(scalar @{$c->{_array}}) { 15 my $n = $c->get_highest_number(1); 16 is($n, (pop(@ary)), 'Testing whether we have been sorted'); 17} 18