1#!/usr/bin/perl -s
2##
3## Copyright (c) 2000, Vipul Ved Prakash.  All rights reserved.
4## This code is free software; you can redistribute it and/or modify
5## it under the same terms as Perl itself.
6##
7## $Id: hide.t,v 1.1 2000/08/31 16:31:07 vipul Exp vipul $
8
9use lib '../lib';
10use lib 'lib';
11
12use Tie::EncryptedHash;
13no warnings;
14print "1..4\n";
15my %h = ();
16tie %h, Tie::EncryptedHash, 'Blacksun';
17
18my $i = 1;
19$h{_a} = 'b';
20$h{_b}{c}{d} = "meme";
21$h{__hide} = 1;
22delete $h{__password};
23print $h{_a} eq "" ? "ok $i\n" : "not ok $i\n";
24$i++;
25
26print $h{_b} eq "" ? "ok $i\n" : "not ok $i\n";
27$i++;
28
29delete $h{__hide };
30print $h{_a} =~ /^Blowfish/ ? "ok $i\n" : "not ok $i\n";
31$i++;
32
33print $h{_b} =~ /^Blowfish/ ? "ok $i\n" : "not ok $i\n";
34$i++;
35
36
37