1#!/usr/bin/perl -w
2
3
4
5use strict;
6use Test::More tests => 3;
7
8#test 1
9use_ok( 'Games::Bingo' );
10
11my $bingo = Games::Bingo->new();
12
13#test 2
14my @numbers;
15ok($bingo->init(\@numbers, 10));
16
17#test 3
18is(scalar @numbers, 10);
19