#!/usr/local/bin/perl -w

# $Id: Print.t,v 1.2 2003/07/29 20:25:19 jonasbn Exp $

use strict;
use Data::Dumper;
use lib qw(../lib lib);

use Test::More tests => 11;

#Test 1-2
BEGIN { use_ok( 'Games::Bingo::Print'); }
require_ok( 'Games::Bingo::Print' );

#Test 3-4 new 
my $bp = Games::Bingo::Print->new();
is(ref $bp, 'Games::Bingo::Print', 'Testing the constructor');

is(ref $bp->{'pdf'}, 'PDFLib', 'Testing the constructor (pdf)');

#test 5-6 _print_row
my $bp2 = Games::Bingo::Print->new();

is(ref $bp->{'pdf'}, 'PDFLib', 'Testing the constructor (pdf)');

ok($bp2->_print_row(
          'x_start_cordinate' => 30,
          'y_start_cordinate' => 50,
          'x_end_cordinate' => 230,
          'size' => 60,
          numbers => [1, 2, 10, 20, 30, 40, 50, 60, 70, 80, 90]
), 'Testing _print_row');

#test 7-8 _print_card
my $bp3 = Games::Bingo::Print->new();

is(ref $bp->{'pdf'}, 'PDFLib', 'Testing the constructor (pdf)');

ok($bp3->_print_card(
          'x_start_cordinate' => 30,
          'y_start_cordinate' => 50,
          'y_end_cordinate' => 230,
          'size' => 60
), 'Testing _print_card');

#Test 9 print_pages
ok($bp->print_pages(1), 'Testing the generation of the PDF file');

#Test 10
my $filename = "bingo.pdf";
ok(-e $filename, 'Testing that the file is there');

#Test 11
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev, $size, $atime,$mtime,$ctime,$blksize,$blocks)
 = stat($filename);
 
ok($size > 0);
