#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use PerlIO::via::dynamic;
# $Filename$
our $unused_destroyed;
my $fname = $0;
sub run_test {
    my $o = bless {}, 'Unused';
    my $p = PerlIO::via::dynamic->new
        (untranslate =>
         sub { $o->{fnord}++;
               $_[1] =~ s/\$Filename[:\w\s\-\.\/\\]*\$/"\$Filename: $fname\$"/e},
         translate =>
         sub { $_[1] =~ s/\$Filename[:\w\s\-\.\/\\]*\$/\$Filename\$/});
    open my $fh, '<', $fname;
    $p->via ($fh);
    local $/;
    my $text = <$fh>;
    ok (1) if $text =~ m/^# \$Filename: $0\$/m;
}
run_test ();
ok ($unused_destroyed);
run_test ();
package Unused;
sub DESTROY {
    $main::unused_destroyed = 1;
}