|
Last change
on this file since 3 was
3,
checked in by valtob, 15 years ago
|
|
subversion source 1.6.2 as test
|
|
File size:
644 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/perl |
|---|
| 2 | use strict; |
|---|
| 3 | use Test::More tests => 3; |
|---|
| 4 | require SVN::Core; |
|---|
| 5 | require SVN::Delta; |
|---|
| 6 | |
|---|
| 7 | my ($srctext, $tgttext, $result) = ('abcd===eflfjgjkx', 'abcd=--ef==lfjffgjx', ''); |
|---|
| 8 | |
|---|
| 9 | open my $source, '<', \$srctext; |
|---|
| 10 | open my $target, '<', \$tgttext; |
|---|
| 11 | open my $aresult, '>', \$result; |
|---|
| 12 | |
|---|
| 13 | my $txstream = SVN::TxDelta::new ($source, $target); |
|---|
| 14 | |
|---|
| 15 | isa_ok ($txstream, '_p_svn_txdelta_stream_t'); |
|---|
| 16 | open my $asource, '<', \$srctext; |
|---|
| 17 | my ($md5, @handle) = SVN::TxDelta::apply ($asource, $aresult, undef); |
|---|
| 18 | |
|---|
| 19 | SVN::TxDelta::send_txstream ($txstream, @handle); |
|---|
| 20 | |
|---|
| 21 | is ($result, $tgttext, 'delta self test'); |
|---|
| 22 | |
|---|
| 23 | is("$md5", 'a22b3dadcbddac48d2f1eae3ec5fb86a', 'md5 matched'); |
|---|
Note: See
TracBrowser
for help on using the repository browser.
