1#!/usr/local/bin/perl 2# $Id: test_library.t,v 1.2 2004/01/03 14:52:53 epaepa Exp $ 3use warnings; 4use strict; 5use File::Temp qw(tempdir); 6use XMLTV; 7 8print "1..1\n"; 9 10my $tempdir = tempdir('XXXXXXXX', CLEANUP => 1); 11chdir $tempdir or die "cannot chdir to $tempdir: $!"; 12 13# Test for bug where write_programme would delete everything from the 14# hash passed in. 15# 16my $scratch = 'scratch'; 17my $fh = new IO::File ">$scratch"; 18die "cannot write to $scratch\n" if not $fh; 19my $w = new XMLTV::Writer(OUTPUT => $fh, encoding => 'UTF-8'); 20$w->start({}); 21 22my %prog = (start => '20000101000000', 23 channel => 'c', 24 title => [ [ 'Foo' ] ], 25 ); 26my %prog_bak = %prog; 27$w->write_programme(\%prog); 28my $ok; 29if (keys %prog == keys %prog_bak) { 30 foreach (keys %prog) { 31 $ok = 0, last if $prog{$_} ne $prog_bak{$_}; 32 } 33 $ok = 1; 34} 35else { $ok = 0 }; 36print 'not ' if not $ok; 37print "ok 1\n"; 38 39$w->end(); 40close $fh or die "cannot close $scratch: $!"; 41