#!/usr/bin/perl -w
use strict;
use warnings;
package Employee;
use Moose;
has 'first_name' => (
is => 'rw',
);
use Test::More tests => 2;
use Gtk2 '-init';
use Gapp;
use_ok 'Gapp::Form::Context::Node';
my $e = Employee->new( first_name => 'Homer' );
my $node = Gapp::Form::Context::Node->new( content => $e );
ok $node, 'created context node';