#!/usr/bin/perl
use Test;
use strict;
use PerlIO::via::dynamic;
BEGIN { plan tests => 1 };

# $Filename$

my $fname = $0;

my $p = PerlIO::via::dynamic->new
  (untranslate =>
    sub { $_[1] =~ s/\$Filename[:\w\s\-\.\/\\]*\$/"\$Filename: $fname\$"/e},
   translate =>
    sub { $_[1] =~ s/\$Filename[:\w\s\-\.\/\\]*\$/\$Filename\$/});

open my $fh, '<'.$p->via, $fname;

local $/;

my $text = <$fh>;

ok (1) if $text =~ m/^# \$Filename: $0\$/m;

exit;