
use DSL::English::LatentSemanticAnalysisWorkflows::Grammar;
use Test;

plan 6;

# Shortcut
my $pLSAMONCOMMAND = DSL::English::LatentSemanticAnalysisWorkflows::Grammar;

#-----------------------------------------------------------
# Creation
#-----------------------------------------------------------

# 1
ok $pLSAMONCOMMAND.parse('use lsa object lsaObj'),
        'use lsa object lsaObj';

# 2
ok $pLSAMONCOMMAND.parse('use object lsaObj2'),
        'use object lsaObj2';

# 3
ok $pLSAMONCOMMAND.parse('create from aText'),
        'create from aText';

# 4
ok $pLSAMONCOMMAND.parse('create a simple object'),
        'create a simple object';

# 5
ok $pLSAMONCOMMAND.parse('create object'),
        'create object';

# 6
ok $pLSAMONCOMMAND.parse('simple object creation'),
        'simple object creation';

done-testing;
