view release on metacpan or  search on metacpan

t/diff.t  view on Meta::CPAN

printf "1\n2\n3\n4\n5\n" > a
darcs add a
darcs record --ignore-times --all --author="test" -m "1"
printf "1\n2\nb\n3\n4\n5\n" > a
darcs record --ignore-times --all --author="test" -m "2"
printf "1\n2\nb\n3\n4\d\n5\n" > a
darcs record --ignore-times --all --author="test" -m "3"
printf "1\n2\nb\n3\n4\d\n5\n6\n" > a
darcs record --ignore-times --all --author="test" -m "4"

chmod +w inventory_old inventory_new
cp _darcs/hashed_inventory inventory_old
/bin/echo -n nnyd | darcs unpull
cp _darcs/hashed_inventory inventory_new
SETUP

    print("# $_\n"), system $_ for split(/\n/, $setup);
} else {
    die "No darcs and no cached darcs output" unless -f "inventory_old" && -f "inventory_new";
}