1#!/usr/bin/perl 2# Basic acceptance test. I didn't want to put anything that messes with the 3# real clipboard into t/ in case it ends up inadvertently messing up someones 4# selection, somehow. 5use strict; 6use warnings; 7 8use lib 'lib'; 9use Clipboard; 10my $save = Clipboard->paste; 11print "Original: ", Clipboard->paste, "\n"; 12Clipboard->copy('looks like Clipboard->copy works'); 13print " Now: ", Clipboard->paste, "\n"; 14Clipboard->copy($save); 15print "(Restored original clipboard)\n" 16