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

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 7;
   8 use Data::Dump qw/dump/;
   9
  10 use_ok 'client';
  11
  12 my $host = '127.0.0.1';
  13 my $test_path = "$server::base_dir/conf/$server::ip/ip/$host/test";
  14 unlink $test_path if -e $test_path;
  15
  16 ok( client::conf( $host => 'test', default => 'default' ), 'conf default' );
  17 cmp_ok( client::conf( $host => 'test' ), 'eq', 'default', 'default' );
  18 ok( client::conf( $host => 'test' => 'value' ), 'conf set' );
  19 cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );
  20
  21 diag "cleanup";
  22 ok( unlink($test_path), "unlink $test_path" );
  23 $test_path =~ s{/[^/]+$}{};
  24 ok( rmdir($test_path), "rmdir $test_path" );