### ----------------------------------------------------
### -- Math::Quaternion
### -- Licenses: Artistic-2.0
### -- Authors: 
### -- File: t/empty_subclass.rakutest
### ----------------------------------------------------
use Test;

use Math::Quaternion;

plan 3;

class EmptySubclass is Math::Quaternion {};

my $e = EmptySubclass.new;
my $u = EmptySubclass.unit;

isa-ok $e, Math::Quaternion, 'A new EmptySubclass isa Math::Quaternion';
isa-ok $e, EmptySubclass,    'A new EmptySubclass isa EmptySubclass';

is     $u * 2 + $e, '2 + 0i + 0j + 0k',  '.unit, math, and .Str work';

# vim: expandtab shiftwidth=4


