git.rot13.org Git - pxelator/blob - lib/PXElator/t/dhcpd.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 6;
   8
   9 use_ok 'dhcpd';
  10
  11 ok( ! $dhcpd::transaction, 'transaction' );
  12
  13 ok( dhcpd::in_our_range($_), "in_our_range $_" ) foreach ( qw/0.0.0.0 172.16.10.1/ );
  14 ok( ! dhcpd::in_our_range($_), "! in_our_range $_" ) foreach ( qw/10.60.0.42 161.53.120.3/ );