XML-XSLT-0.48/t/xsl_cond.t

35    my $correct = '<doc>ok</doc>';
39    die "$outstr ne $correct\n" unless $outstr eq $correct;
67    my $correct = '<doc>ok</doc>';
71    die "$outstr ne $correct\n" unless $outstr eq $correct;
98    my $correct = '<doc>ok</doc>';
102    die "$outstr ne $correct\n" unless $outstr eq $correct;
130    my $correct = '<doc>ok</doc>';
134    die "$outstr ne $correct\n" unless $outstr eq $correct;
162    my $correct = '<doc>ok</doc>';
166    die "$outstr ne $correct\n" unless $outstr eq $correct;
194    my $correct = '<doc>ok</doc>';
198    die "$outstr ne $correct\n" unless $outstr eq $correct;
226    my $correct = '<doc>ok</doc>';
230    die "$outstr ne $correct\n" unless $outstr eq $correct;
258    my $correct = '<doc>ok</doc>';
262    die "$outstr ne $correct\n" unless $outstr eq $correct;
290    my $correct = '<doc>ok</doc>';
294    die "$outstr ne $correct\n" unless $outstr eq $correct;
322    my $correct = '<doc>ok</doc>';
326    die "$outstr ne $correct\n" unless $outstr eq $correct;
355    my $correct = '<doc>ok</doc>';
359    die "$outstr ne $correct\n" unless $outstr eq $correct;
387    my $correct = '<doc>ok</doc>';
391    die "$outstr ne $correct\n" unless $outstr eq $correct;
421    my $correct = '<doc>ok</doc>';
425    die "$outstr ne $correct\n" unless $outstr eq $correct;
453    my $correct = '<doc>ok</doc>';
457    die "$outstr ne $correct\n" unless $outstr eq $correct;
484    my $correct = '<doc>ok</doc>';
488    die "$outstr ne $correct\n" unless $outstr eq $correct;
516    my $correct = '<doc>ok</doc>';
520    die "$outstr ne $correct\n" unless $outstr eq $correct;
548    my $correct = '<doc>ok</doc>';
552    die "$outstr ne $correct\n" unless $outstr eq $correct;
580    my $correct = '<doc>ok</doc>';
584    die "$outstr ne $correct\n" unless $outstr eq $correct;
612    my $correct = '<doc>ok</doc>';
616    die "$outstr ne $correct\n" unless $outstr eq $correct;
644    my $correct = '<doc>ok</doc>';
648    die "$outstr ne $correct\n" unless $outstr eq $correct;
676    my $correct = '<doc>ok</doc>';
680    die "$outstr ne $correct\n" unless $outstr eq $correct;
708    my $correct = '<doc>ok</doc>';
712    die "$outstr ne $correct\n" unless $outstr eq $correct;
741    my $correct = '<doc>ok</doc>';
745    die "$outstr ne $correct\n" unless $outstr eq $correct;
773    my $correct = '<doc>ok</doc>';
777    die "$outstr ne $correct\n" unless $outstr eq $correct;