pidl/tests/test_util.pl

   1 #!/usr/bin/perl
   2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
   3 # Published under the GNU General Public License
   4 use strict;
   5 use warnings;
   6
   7 use Test::More tests => 6;
   8 use FindBin qw($RealBin);
   9 use lib "$RealBin";
  10 use Util qw(test_warnings test_errors);
  11 use Parse::Pidl qw(warning error);
  12
  13 test_warnings("", sub {});
  14
  15 test_warnings("x:1: msg\n", sub { warning({FILE => "x", LINE => 1}, "msg"); });
  16 test_warnings("", sub {});
  17
  18 test_errors("", sub {});
  19
  20 test_errors("x:1: msg\n", sub { error({FILE => "x", LINE => 1}, "msg"); });
  21 test_errors("", sub {});
  22