File: test-stderr

package info (click to toggle)
libclass-objecttemplate-perl 0.7-9
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 124 kB
  • sloc: perl: 508; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 614 bytes parent folder | download | duplicates (3) 
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
 
Make test.pl output to STDOUT instead of STDERR

This is in line with other CPAN modules.

Also suppress the expected warning
  Foo2 already has method: one at ./test.pl line 202.
when requiring Foo2.pm.

--- libclass-objecttemplate-perl.orig/test.pl
+++ libclass-objecttemplate-perl/test.pl
@@ -199,7 +199,7 @@
 EOT
   close(F);
 }
-require Foo2;
+{ local $SIG{__WARN__} = sub {}; require Foo2; }
 
 my $f = Foo2->new();
 
@@ -235,6 +235,6 @@
 
 sub result {
   my $cond = shift;
-  print STDERR "not " unless $cond;
-  print STDERR "ok ", $i++, "\n";
+  print "not " unless $cond;
+  print "ok ", $i++, "\n";
 }