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

plan 9;

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

#-----------------------------------------------------------
# Make document-term matrix command tests
#-----------------------------------------------------------

# 1
ok $pLSAMONCOMMAND.parse('create a document term matrix'),
        'create a document term matrix';

# 2
ok $pLSAMONCOMMAND.parse('make the document word matrix'),
        'make the document word matrix';

# 3
ok $pLSAMONCOMMAND.parse('make the document word matrix using no stop words'),
        'make the document word matrix using no stop words';

# 4
ok $pLSAMONCOMMAND.parse('make the document term matrix using automatic stop words and automatic stemming rules'),
        'make the document term matrix using automatic stop words and automatic stemming rules';

# 5
ok $pLSAMONCOMMAND.parse('make document term matrix with no stemming rules and no stop words'),
        'make document term matrix with no stemming rules and no stop words';

# 6
ok $pLSAMONCOMMAND.parse('make document term matrix with automatic stop words and without stemming rules'),
        'make document term matrix with automatic stop words and without stemming rules';

# 7
ok $pLSAMONCOMMAND
        .parse('make the document term matrix with `Automatic` stemming rules and with `Automatic` stop words'),
        'make the document term matrix with `Automatic` stemming rules and with `Automatic` stop words';

# 8
ok $pLSAMONCOMMAND.parse('make the document term matrix using default stemming rules and with default stop words'),
        'make the document term matrix using default stemming rules and with default stop words';

# 9
ok $pLSAMONCOMMAND.parse('make the document term matrix with stemming'),
        'make the document term matrix with stemming';

done-testing;
