"Fossies" - the Fresh Open Source Software Archive

Member "rt-5.0.2/t/shredder/00skeleton.t" (14 Sep 2021, 365 Bytes) of package /linux/misc/rt-5.0.2.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 
    2 use strict;
    3 use warnings;
    4 
    5 use Test::Deep;
    6 use RT::Test::Shredder tests => 1;
    7 my $test = "RT::Test::Shredder";
    8 
    9 $test->create_savepoint('clean'); # backup of the clean RT DB
   10 my $shredder = $test->shredder_new(); # new shredder object
   11 
   12 # ....
   13 # create and wipe RT objects
   14 #
   15 
   16 cmp_deeply( $test->dump_current_and_savepoint('clean'), "current DB equal to savepoint");