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