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

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 7;
   7
   8 use_ok 'format';
   9
  10 ok( my $mac = format::mac( 'dead00beef' ), 'mac' );
  11 diag $mac;
  12 cmp_ok ( $mac, 'eq', 'DE:AD:00:BE:EF', 'formated' );
  13
  14 ok( my $tmp = format::mac( $mac ), 'mac allready formatted' );
  15 cmp_ok( $tmp, 'eq', $mac );
  16
  17 ok( my $html = format::mac( 'dead00beef', 'html' ), 'mac html' );
  18 like( $html, qr/<tt>/i, 'html' );