ok(Text::CPP::CLK_GNUC99,
'CLK_GNUC99 is defined in Text::CPP'
);
ok(CLK_GNUC99,
'CLK_GNUC99 is exported'
);
ok(CPP_NOT,
'CPP_EQ is exported'
);
ok(CPP_N_CATEGORY,
'CPP_N_CATEGORY is exported'
);
ok(TF_PREV_WHITE,
'TF_PREV_WHITE is exported'
);
my
$reader
= new Text::CPP(
Language
=> CLK_GNUC99);
ok(
defined
$reader
,
'Created something ...'
);
ok(UNIVERSAL::isa(
$reader
,
'Text::CPP'
),
'... which is a Text::CPP'
);
ok(
$reader
->type(CPP_NAME) eq
'CPP_NAME'
,
'Text::CPP names tokens'
);
ok(
$reader
->errors == 0,
'No errors were recorded'
);
$reader
=
undef
;
ok(1,
'Successfully freed the Text::CPP object'
);
$reader
= new Text::CPP(
Language
=>
"C"
);
ok(
defined
$reader
,
'Created a reader for "C"'
);
$reader
=
undef
;
$reader
= new Text::CPP(
Language
=>
"C++"
);
ok(
defined
$reader
,
'Created a reader for "C++"'
);
$reader
=
undef
;
eval
{
$reader
= new Text::CPP(
Language
=>
"Invalid"
) };
ok($@ =~ /lang/,
'Got an error from "new"'
);
ok(!
defined
$reader
,
'Failed to create a reader for invalid language'
);
$reader
=
undef
;
$reader
= new Text::CPP;
ok(
defined
$reader
,
'Created a reader for the default language'
);
$reader
=
undef
;