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

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use autodie;
   6
   7 use Test::More tests => 4;
   8 use Data::Dump qw/dump/;
   9
  10 use_ok 'server';
  11
  12 ok( my $test = server::shared( 'test', 42 ), 'set shared' );
  13 diag $test;
  14 cmp_ok( $test, '==', server::shared( 'test' ), 'get shared' );
  15
  16 cmp_ok( $test, '==', server::conf_default( 'test' ), 'get conf_default' );
  17