File: 50_history.t

package info (click to toggle)
libxml-rss-simplegen-perl 11.11-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, sid
  • size: 280 kB
  • sloc: perl: 1,230; makefile: 4
file content (40 lines) | stat: -rw-r--r-- 688 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

require 5;
use strict;
use Test;
BEGIN { plan tests => 6 }

print "# Starting ", __FILE__ , " ...\n";
ok 1;

#sub XML::RSS::SimpleGen::DEBUG () {20}

use XML::RSS::SimpleGen;

my $rss     = 'test.rss';
my $history = 'test.hst';

my $last;
{
  my @curr;
  foreach my $to_add ( qw( morning noon night ) ) {
    rss_new( 'http://blar.int' );
    rss_history_file( $history );
    push @curr, $to_add;
    foreach my $c ( sort @curr ) {   # yes, sort!!
      rss_item("http://blar.int#$c", "About $c");
    }
    rss_save($rss);
    $last = rss_as_string();
    ok 1;
    sleep 2;
  }
}

unlink $rss, $history;
$last =~ s/\n/ /g;
ok $last, '/night.+noon.+morning/';

print "# bye\n";
ok 1;