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