#!/usr/bin/perl
use strict;
use Test::More tests => 2;
require SVN::Core;
require SVN::Delta;

SKIP: {
    eval { require IO::String };

    skip "IO::String not installed", 2 if $@;
    my $srctext = 'abcd===eflfjgjkx';
    my $tgttext = 'abcd=--ef==lfjffgjx';

    my $source = IO::String->new ($srctext);
    my $target = IO::String->new ($tgttext);

    my $result = '';
    my $aresult = IO::String->new (\$result);

    my $txstream = SVN::TxDelta::new ($source, $target);

    isa_ok ($txstream, '_p_svn_txdelta_stream_t');
    my $handle = [SVN::TxDelta::apply (IO::String->new ($srctext),
				       $aresult, undef, undef)];

    SVN::TxDelta::send_txstream ($txstream, @$handle);

    is ($result, $tgttext, 'delta self test');

}

Add a simple test for delta to Perl bindings.
Add a simple test for delta to Perl bindings.

t/5delta.t: New.


git-svn-id: f8a4e5e023278da1e04e203c7fe051e3c4285d88@848454 13f79535-47bb-0310-9956-ffa450edef68
