diff options
Diffstat (limited to 'subversion/bindings/swig/perl/native/t/5delta.t')
-rw-r--r-- | subversion/bindings/swig/perl/native/t/5delta.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/subversion/bindings/swig/perl/native/t/5delta.t b/subversion/bindings/swig/perl/native/t/5delta.t index e955de5..a4f7877 100644 --- a/subversion/bindings/swig/perl/native/t/5delta.t +++ b/subversion/bindings/swig/perl/native/t/5delta.t @@ -33,12 +33,15 @@ 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 ($md5, @handle) = SVN::TxDelta::apply($asource, $aresult, undef); SVN::TxDelta::send_txstream($txstream, @handle); +# TEST is($result, $tgttext, 'delta self test'); +# TEST is("$md5", 'a22b3dadcbddac48d2f1eae3ec5fb86a', 'md5 matched'); |