PXElator/t/ties.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 5;

use_ok 'ties';

tie my $test, 'ties', 'test', 42;
ok( $test, 'tie' );
cmp_ok( $test, '==', 42, 'get' );

ok( $test = 'foobar', 'set' );
cmp_ok( $test, 'eq', 'foobar', 'get' );

unlink "/srv/pxelator/conf/test";
1	dpavlin	410	#!/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";