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