#!/usr/bin/perl

use strict;

use warnings;

use Test::More 'no_plan';

use Test::Differences;

my $got = join '' => 1..40;

TODO: {

    local $TODO = 'Testing diff styles';

    table_diff;

    eq_or_diff $got, "-$got", 'table diff';

    unified_diff;

    eq_or_diff $got, "-$got", 'unified diff';

    context_diff;

    eq_or_diff $got, "-$got", 'context diff';

    oldstyle_diff;

    eq_or_diff $got, "-$got", 'oldstyle diff';

}