t/00-load.t

   1 #!perl
   2 #
   3 # This file is part of Acme::Tie::Eleet.
   4 # Copyright (c) 2001-2007 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 #
  12 # Basic tests.
  13 #
  14
  15 #-----------------------------------#
  16 #          Initialization.          #
  17 #-----------------------------------#
  18
  19 # Modules we rely on.
  20 use Test;
  21 use POSIX qw(tmpnam);
  22
  23 BEGIN { plan tests => 3 };
  24
  25 # Vars.
  26 my $file = tmpnam();
  27
  28
  29 #--------------------------------#
  30 #          Basic tests.          #
  31 #--------------------------------#
  32
  33 # Loading the module.
  34 eval { require Acme::Tie::Eleet; };
  35 ok($@, "");
  36
  37
  38 # Simple tiehandle.
  39 eval {
  40     open OUT, ">$file" or die "Unable to create temporary file: $!";
  41     tie *OUT, 'Acme::Tie::Eleet', *OUT;
  42     untie *OUT;
  43 };
  44 ok($@, "");
  45
  46
  47 # Simple tiescalar.
  48 eval {
  49     my $scalar;
  50     tie $scalar, 'Acme::Tie::Eleet';
  51     untie $scalar;
  52 };
  53 ok($@, "");
  54
  55
  56 unlink $file;