t/basic.t

   1 #-*-perl-*-
   2 #
   3 # Basic tests.
   4 #
   5
   6 #-----------------------------------#
   7 #          Initialization.          #
   8 #-----------------------------------#
   9
  10 # Modules we rely on.
  11 use Test;
  12 use POSIX qw(tmpnam);
  13
  14 BEGIN { plan tests => 3 };
  15
  16 # Vars.
  17 my $file = tmpnam();
  18
  19
  20 #--------------------------------#
  21 #          Basic tests.          #
  22 #--------------------------------#
  23
  24 # Loading the module.
  25 eval { require Acme::Tie::Eleet; };
  26 ok($@, "");
  27
  28
  29 # Simple tiehandle.
  30 eval {
  31     open OUT, ">$file" or die "Unable to create temporary file: $!";
  32     tie *OUT, 'Acme::Tie::Eleet', *OUT;
  33     untie *OUT;
  34 };
  35 ok($@, "");
  36
  37
  38 # Simple tiescalar.
  39 eval {
  40     my $scalar;
  41     tie $scalar, 'Acme::Tie::Eleet';
  42     untie $scalar;
  43 };
  44 ok($@, "");
  45
  46
  47 unlink $file;