### ----------------------------------------------------
### -- Qt::QtWidgets
### -- Licenses: GPL-3.0-or-later
### -- Authors: Yves Guillemot <yc.guillemot@wanadoo.fr>
### -- File: t/105-QEvent.rakutest
### ----------------------------------------------------

use Test;
plan 4;

use Qt::QtWidgets::QApplication;
use Qt::QtWidgets::QEvent;

my $app = QApplication.new;

my $a = QEvent.new(QEvent::FocusOut);
my $b = QEvent.new($a.address);

ok $a.type ~~ QEvent::FocusOut,   "Create a QEvent 'FocusOut'";
ok !$a.spontaneous,               "Should not be 'spontaneous'";

ok $b.type ~~ QEvent::FocusOut,   "A copy of this event keep its type";
ok !$b.spontaneous,               "And is always not 'spontaneous'";




