← Back to branch summary

~ubuntu-branches/ubuntu/trusty/horae/trusty

« back to all changes in this revision

Viewing changes to 0CPAN/Tk-HistEntry-0.42/t/match.t

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Tk-HistEntry-0.42/t/match.t
1
 
# -*- perl -*-
2
 
 
3
 
#
4
 
# $Id: match.t,v 1.2 1998/08/28 11:54:20 eserte Exp $
5
 
# Author: Slaven Rezic
6
 
#
7
 
# Copyright (C) 1997,1998 Slaven Rezic. All rights reserved.
8
 
# This program is free software; you can redistribute it and/or
9
 
# modify it under the same terms as Perl itself.
10
 
#
11
 
# Mail: eserte@cs.tu-berlin.de
12
 
# WWW:  http://user.cs.tu-berlin.de/~eserte/
13
 
#
14
 
 
15
 
use Test;
16
 
use Tk;
17
 
use Tk::HistEntry;
18
 
use strict;
19
 
 
20
 
BEGIN { plan tests => 2, todo => [2] }
21
 
 
22
 
my $top = new MainWindow;
23
 
$top->geometry($top->screenwidth . "x" .$top->screenheight . "+0+0");
24
 
 
25
 
my $he = $top->HistEntry(-match => 1,
26
 
                        )->pack;
27
 
 
28
 
$he->addhistory('Slaven');
29
 
$he->addhistory('Rezic');
30
 
my $e = $he->_entry;
31
 
$e->focus;
32
 
$e->update;
33
 
eval {
34
 
    $e->event('generate', '<KeyPress>', -keysym => 'S');
35
 
    $e->event('generate', '<KeyPress>', -keysym => 'l');
36
 
    $e->update;
37
 
};
38
 
skip($@, $e->get eq 'Slaven');
39
 
 
40
 
eval {
41
 
    $e->event('generate', '<KeyPress>', -keysym => 'BackSpace');
42
 
    $e->update;
43
 
};
44
 
#warn $e->get;
45
 
skip ($@, $e->get eq 'S');
46
 
 
47
 
#MainLoop;