Article wrapper

This test checks that an external file referenced by textobject is correctly handled.

 1 |<?xml version="1.0" encoding="utf-8"?>
   |<article xmlns="http://docbook.org/ns/docbook" version="5.0">
   |   <title>Article wrapper</title>
   |   <programlisting linenumbering="unnumbered">@rem = '--*-Perl-*--
 5 |@echo off
   |perl.exe %_batchname %$
   |goto endofperl
   |@rem ';
   | 
10 |# Compress mail...
   | 
   |require 'n:/home/nwalsh/lib/cygnus.pl';
   |require 'timelocal.pl';
   |use Cwd;
15 | 
   |select (STDERR); $| = 1;
   |select (STDOUT); $| = 1;
   | 
   |@DIRS = ("/home/nwalsh/Mail");
20 |while (@DIRS) {
   |    $dir = shift @DIRS;
   |    opendir (DIR, $dir);
   |    while ($fname = readdir(DIR)) {
   |        $file = "$dir/$fname";
25 |        next if ! -d $file;
   |        next if $fname =~ /^\.\.?$/;
   | 
   |        print "$file\n";
   |        push (@DIRS, $file);
30 |        &amp;compress ($file);
   |    }
   |}
   | 
   |exit;</programlisting>
35 |</article>