summaryrefslogtreecommitdiff
path: root/subversion/bindings/swig/perl/native/t/5delta-compat.t
diff options
context:
space:
mode:
Diffstat (limited to 'subversion/bindings/swig/perl/native/t/5delta-compat.t')
-rw-r--r--subversion/bindings/swig/perl/native/t/5delta-compat.t2
1 files changed, 2 insertions, 0 deletions
diff --git a/subversion/bindings/swig/perl/native/t/5delta-compat.t b/subversion/bindings/swig/perl/native/t/5delta-compat.t
index 3ec473d..f11f125 100644
--- a/subversion/bindings/swig/perl/native/t/5delta-compat.t
+++ b/subversion/bindings/swig/perl/native/t/5delta-compat.t
@@ -33,11 +33,13 @@ open my $aresult, '>', \$result;
my $txstream = SVN::TxDelta::new($source, $target);
+# TEST
isa_ok($txstream, '_p_svn_txdelta_stream_t');
open my $asource, '<', \$srctext;
my $handle = [SVN::TxDelta::apply($asource, $aresult, undef, undef)];
SVN::TxDelta::send_txstream($txstream, @$handle);
+# TEST
is($result, $tgttext, 'delta self test');