#!/usr/bin/perl -w
use strict;
use PerlIO::via::dynamic;
use File::Temp;
use Test::More tests => 1;
our $unused_destroyed;
sub run_test {
    my $o = bless {}, 'Unused';
    my $p = PerlIO::via::dynamic->new
        (untranslate =>
         sub { $o->{fnord}++; });
    my $fh = File::Temp->new;
    $p->via ($fh);
    print $fh "Foobar\n";
}
run_test ();
ok ($unused_destroyed);
package Unused;
sub DESTROY {
    $main::unused_destroyed = 1;
}