# File covered: rlpParse.c
set testInputPath "./tests"
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
namespace import -force ::tcltest::*
}
lappend TESTS [ list rlp-0 \
{check basic parser functionality with small_rules.tcl} \
$testInputPath/small_rules.tcl \
{0} ]
lappend TESTS [ list rlp-1 \
{check basic parser functionality with macros_test.tcl} \
$testInputPath/macros_test.tcl \
{0} ]
lappend TESTS [ list rlp-2 \
{check basic parser functionality with big_test_1.tcl} \
$testInputPath/big_test_1.tcl \
{0} ]
lappend TESTS [ list rlp-3 \
{check basic parser functionality with manual_snort_all_1.tcl} \
$testInputPath/manual_snort_all_1.tcl \
{0} ]
lappend TESTS [ list rlp-4 \
{check basic parser functionality with manual_snort_all_2.tcl} \
$testInputPath/manual_snort_all_2.tcl \
{0} ]
foreach aTest $TESTS {
set testId [lindex $aTest 0]
set testLabel [lindex $aTest 1]
if { 1 || [regexp {0} $testId ] } {
set fileName [lindex $aTest 2]
set expectedResult [lindex $aTest 3]
puts "Running $testId"
test $testId $testLabel "testParser $fileName" $expectedResult
test $testId $testLabel "testEvlBuildManagerFromFile $fileName" $expectedResult
}
}