#!/usr/bin/perl
use strict; use warnings; use Perl6::Say; use L;

use sane test => 1;

chdir "test";

my $in = slurp("in");
$in =~ s/.*? \b use \s+ sane \b .*? ;//x;

my $out = sane::insanify($in);
belch("out", $out);

my $expected = slurp("expect");

if ($out eq $expected) {
	say "ok";
} else {
	say "sane.pm is not producing expected output";
	say "diff expect out:";
	system "diff", "expect", "out";
}