Category

Development Platform
Home > SourceCode/Document > Database system > MySQL > View Code
destroy.t
Package: mysql-3.23.35.tar.gz　[view]
Upload User: tsgydb
Upload Date: 2007-04-14
Package Size: 10674k
Code Size: 3k
Category:

MySQL

Development Platform:

Visual C++

destroy.t：Code Content
  1. #!./perl -w
  3. use strict ;
  5. BEGIN {
  6.     unless(grep /blib/, @INC) {
  7.         chdir 't' if -d 't';
  8.         @INC = '../lib' if -d '../lib';
  9.     }
  10. }
  12. use BerkeleyDB; 
  13. use File::Path qw(rmtree);
  15. print "1..13n";
  18. {
  19.     package LexFile ;
  21.     sub new
  22.     {
  23.         my $self = shift ;
  24.         unlink @_ ;
  25.         bless [ @_ ], $self ;
  26.     }
  28.     sub DESTROY
  29.     {
  30.         my $self = shift ;
  31.         unlink @{ $self } ;
  32.     }
  33. }
  35. sub ok
  36. {
  37.     my $no = shift ;
  38.     my $result = shift ;
  39.  
  40.     print "not " unless $result ;
  41.     print "ok $non" ;
  42. }
  44. sub docat
  45. {
  46.     my $file = shift;
  47.     local $/ = undef;
  48.     open(CAT,$file) || die "Cannot open $file:$!";
  49.     my $result = <CAT>;
  50.     close(CAT);
  51.     return $result;
  52. }
  55. my $Dfile = "dbhash.tmp";
  56. my $home = "./fred" ;
  58. umask(0);
  60. {
  61.     # let object destroction kill everything
  63.     my $lex = new LexFile $Dfile ;
  64.     my %hash ;
  65.     my $value ;
  67.     rmtree $home if -e $home ;
  68.     ok 1, mkdir($home, 0777) ;
  69.     ok 2, my $env = new BerkeleyDB::Env -Home => $home,
  70.      -Flags => DB_CREATE|DB_INIT_TXN|
  71.    DB_INIT_MPOOL|DB_INIT_LOCK ;
  72.     ok 3, my $txn = $env->txn_begin() ;
  73.     ok 4, my $db1 = tie %hash, 'BerkeleyDB::Hash', -Filename => $Dfile,
  74.                                                -Flags     => DB_CREATE ,
  75.         -Env     => $env,
  76.      -Txn    => $txn  ;
  78.     
  79.     # create some data
  80.     my %data =  (
  81. "red" => "boat",
  82. "green" => "house",
  83. "blue" => "sea",
  84. ) ;
  86.     my $ret = 0 ;
  87.     while (my ($k, $v) = each %data) {
  88.         $ret += $db1->db_put($k, $v) ;
  89.     }
  90.     ok 5, $ret == 0 ;
  92.     # should be able to see all the records
  94.     ok 6, my $cursor = $db1->db_cursor() ;
  95.     my ($k, $v) = ("", "") ;
  96.     my $count = 0 ;
  97.     # sequence forwards
  98.     while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
  99.         ++ $count ;
  100.     }
  101.     ok 7, $count == 3 ;
  102.     undef $cursor ;
  104.     # now abort the transaction
  105.     ok 8, $txn->txn_abort() == 0 ;
  107.     # there shouldn't be any records in the database
  108.     $count = 0 ;
  109.     # sequence forwards
  110.     ok 9, $cursor = $db1->db_cursor() ;
  111.     while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
  112.         ++ $count ;
  113.     }
  114.     ok 10, $count == 0 ;
  116.     #undef $txn ;
  117.     #undef $cursor ;
  118.     #undef $db1 ;
  119.     #undef $env ;
  120.     #untie %hash ;
  122. }
  123. {
  124.     my $lex = new LexFile $Dfile ;
  125.     my %hash ;
  126.     my $cursor ;
  127.     my ($k, $v) = ("", "") ;
  128.     ok 11, my $db1 = tie %hash, 'BerkeleyDB::Hash', 
  129. -Filename => $Dfile,
  130.                 -Flags => DB_CREATE ;
  131.     my $count = 0 ;
  132.     # sequence forwards
  133.     ok 12, $cursor = $db1->db_cursor() ;
  134.     while ($cursor->c_get($k, $v, DB_NEXT) == 0) {
  135.         ++ $count ;
  136.     }
  137.     ok 13, $count == 0 ;
  138. }
  140. rmtree $home ;