File: trace_print.t

package info (click to toggle)
liblog-trace-perl 1.070-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 180 kB
  • ctags: 42
  • sloc: perl: 859; makefile: 44
file content (19 lines) | stat: -rw-r--r-- 552 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/local/bin/perl -w
# $Id: trace_print.t,v 1.3 2004/11/23 14:07:32 simonf Exp $
use strict;
print "1..2\n";

# Find local libs unless running under Test::Harness
BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' unless grep /\bblib\b/, @INC }
require Log::Trace;

import Log::Trace 'print';
TRACE("ok 1 (Log::Trace $Log::Trace::VERSION loaded)");

import Log::Trace print => \*STDOUT;
TRACE('ok 2 (print => STDOUT)');

import Log::Trace print => {Level => 1};
TRACE({Level => 999}, "not ok 3 (this shouldn't cause the test to fail)");

sub TRACE {}