← Back to branch summary

~kubuntu-members/perlkde/4.11

« back to all changes in this revision

Viewing changes to qtcore/t/c_qapp.t

  • Committer: Arno Rehn
  • Date: 2011-01-06 17:49:41 UTC
  • Revision ID: git-v1:ada9e4b459cf6fabd0f3b9b164387469cb19d9bc
A patch by Ian Monroe and myself to modularize the repository.
See README.MODULARIZATION for details.

svn path=/trunk/KDE/kdebindings/perl/; revision=1212365

Show diffs side-by-side

added added

removed removed

Lines of Context:
qtcore/t/c_qapp.t
1
 
use Test::More tests => 3;
2
 
 
3
 
use QtCore4;
4
 
use QtGui4;
5
 
 
6
 
$a=0;
7
 
 
8
 
# Test if the Qt::Application ctor works
9
 
 
10
 
eval { $a = Qt::Application( \@ARGV ) };
11
 
 
12
 
ok( !+$@, 'Qt::Application ctor' );
13
 
 
14
 
# Test wether the global qApp object is properly set up
15
 
 
16
 
eval { qApp->libraryPaths() };
17
 
 
18
 
ok( !+$@, 'qApp properly set up' ) or diag( $@ );
19
 
 
20
 
# One second test of the event loop
21
 
 
22
 
Qt::Timer::singleShot( 300, qApp, SLOT 'quit()' );
23
 
 
24
 
ok( !qApp->exec, 'One second event loop' );