1#!/usr/bin/perl -I. 2 3use Text::Wrap; 4 5print "1..1\n"; 6 7$Text::Wrap::columns = 1; 8eval { wrap('', '', ''); }; 9 10print $@ ? "not ok 1\n" : "ok 1\n"; 11 12