/[pxelator]/lib/PXElator/t/format.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/t/format.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 215 by dpavlin, Thu Aug 13 12:06:35 2009 UTC revision 216 by dpavlin, Thu Aug 13 13:06:18 2009 UTC
# Line 3  Line 3 
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use Test::More tests => 3;  use Test::More tests => 7;
7    
8  use_ok 'format';  use_ok 'format';
9    
10  ok( my $mac = format::mac( 'dead00beef' ), 'mac' );  ok( my $mac = format::mac( 'dead00beef' ), 'mac' );
11  diag $mac;  diag $mac;
12  cmp_ok ( $mac, 'eq', 'DE:AD:00:BE:EF', 'formated' );  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' );
Legend:
Removed from v.215  
changed lines
  Added in v.216
  ViewVC Help
Powered by ViewVC 1.1.26