00logger.t #1

  • //
  • guest/
  • perforce_software/
  • revml/
  • t/
  • 00logger.t
  • View
  • Commits
  • Open Download .zip Download (341 B)
#!/usr/local/bin/perl -w

=head1 NAME

00logger.t - See if the logger compiles properly.

=cut

use strict ;

use Carp ;
use Test ;
use VCP::Logger qw( lg );

## TODO: Add lots of tests to 00rev.t

my @tests = (
## Test some utility functions first
sub { lg "logger test"; ok 1; },
) ;

plan tests => scalar( @tests ) ;

$_->() for @tests ;
# Change User Description Committed
#1 3155 Barrie Slaymaker Convert to logging using VCP::Logger to reduce stdout/err spew.
       Simplify & speed up debugging quite a bit.
       Provide more verbose information in logs.
       Print to STDERR progress reports to keep users from wondering
       what's going on.
       Breaks test; halfway through upgrading run3() to an inline
       function for speed and for VCP specific features.