projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.0.23
[freeside.git]
/
rt
/
t
/
shredder
/
01ticket.t
diff --git
a/rt/t/shredder/01ticket.t
b/rt/t/shredder/01ticket.t
index
7dff16d
..
0a9da41
100644
(file)
--- a/
rt/t/shredder/01ticket.t
+++ b/
rt/t/shredder/01ticket.t
@@
-1,11
+1,10
@@
-#!/usr/bin/perl -w
use strict;
use warnings;
use Test::Deep;
use File::Spec;
use strict;
use warnings;
use Test::Deep;
use File::Spec;
-use Test::More tests => 15
;
+use Test::More tests => 15
+ 1; # plus one for warnings check
use RT::Test ();
use RT::Test ();
@@
-78,7
+77,11
@@
cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint"
my $shredder = shredder_new();
$shredder->PutObjects( Objects => $child );
$shredder->WipeoutAll;
my $shredder = shredder_new();
$shredder->PutObjects( Objects => $child );
$shredder->WipeoutAll;
- cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint");
+
+ TODO: {
+ local $TODO = "Shredder doesn't delete all links and transactions";
+ cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint");
+ }
$shredder->PutObjects( Objects => $parent );
$shredder->WipeoutAll;
$shredder->PutObjects( Objects => $parent );
$shredder->WipeoutAll;