File Coverage

test/pl
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2 1     1   977 use Test;
  1         3967  
  1         139  
3 1     1   5 BEGIN { plan tests => 1 };
4 1     1   389 use strict;
  1         2  
  1         33  
5 1     1   5 use blib;
  1         2  
  1         123  
6 1     1   656 use Device::Regulator::Plasmatronic;
  1         3  
  1         1769  
7              
8 1         7 ok(1);
9              
10             # XXX - Think of a way of testing the library
11             # by opening up a daemon instead of a serial port and interacting with that.
12             # In other words, writting a daemon that ACTS like a Plasmatronic Regulator,
13             # this should not be too hard, I could just add demonstration values to the
14             # data file, and it would be useful for other applications.
15              
16             # my $r = Device::Regulator::Plasmatronic->new();
17