my $obj = new TiedXS(1);

ok($obj);
ok(tied $obj);