File: 2basic.t

package info (click to toggle)
libperlio-via-dynamic-perl 0.14-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 216 kB
  • sloc: perl: 2,696; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 452 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/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;