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