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

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 5;
   8
   9 use_ok 'ties';
  10
  11 tie my $test, 'ties', 'test', 42;
  12 ok( $test, 'tie' );
  13 cmp_ok( $test, '==', 42, 'get' );
  14
  15 ok( $test = 'foobar', 'set' );
  16 cmp_ok( $test, 'eq', 'foobar', 'get' );
  17
  18 unlink "/srv/pxelator/conf/test";