File:  [parser3project] / parser3 / tests / results / auto.p
Revision 1.26: download - view: text, annotated - select for diffs - revision graph
Thu Jan 8 21:24:29 2026 UTC (4 months, 2 weeks ago) by moko
Branches: MAIN
CVS tags: HEAD
test for table size limit added (related to feature #1276)

@conf[filespec]
$CHARSETS[
	$.windows-1251[../etc/parser3.charsets/windows-1251.cfg]
]

$CLASS_PATH[^table::create{path
/
/tests
}]

$NO_PROTOTYPE[
	$.[336.html][yes]
	$.[225.html][yes]
	$.[051.html][yes]
]

^if(def $NO_PROTOTYPE.[$env:PATH_TRANSLATED]){
	$OBJECT-PROTOTYPE(false)
}

^if($env:PATH_TRANSLATED eq '357.html'){
	$LIMITS[
		$.max_loop(50)
		$.max_recursion(50)
	]
}
^if($env:PATH_TRANSLATED eq '358.html'){
	$LIMITS[
		$.max_loop(0)
		$.max_recoursion(0)
	]
}
^if($env:PATH_TRANSLATED eq '380.html' || $env:PATH_TRANSLATED eq '394-curl.html' ){
	$LIMITS[
		$.max_file_size(10000)
	]
}

^if($env:PATH_TRANSLATED eq '403.html'){
	$MIME-TYPES[^table::create{ext	mime-type
txt	text/plain
html	text/html
}]
}

^if($env:PATH_TRANSLATED eq '409.html'){
	$LOCALS(true)
}

^if($env:PATH_TRANSLATED eq '410.html'){
	$CLASS-GETTER-PROTECTED(false)
}

^if($env:PATH_TRANSLATED eq '449.html'){
	$LIMITS[
		$.max_array_size(1000)
	]
}

^os[;]{ ^curl:options[ $.library[libcurl.4.dylib] ] }

@auto[]


@try-catch[jCode]
^try{$jCode}{
	$exception.handled(true)
	Exception type: $exception.type,
	Source: $exception.source,
	Comment: ^taint[as-is;$exception.comment]
}


@try-catch-filtered[jCode;limit]
^try{$jCode}{
	$exception.handled(true)
	Exception type: $exception.type,
	Source: $exception.source^if(def $limit){,
	Comment: ^exception.comment.left($limit)}
}


@try-catch-comment[jCode]
^try{$jCode}{
	$exception.handled(true)
	Exception: ^taint[as-is;$exception.comment]
}


@1251[]
^from-1251[]
^to-1251[]


@from-1251[]
$request:charset[windows-1251]


@to-1251[]
$response:charset[windows-1251]


# backward
@windows-1251[]
^1251[]

@os[win;unix;mac][name]
$name[^env:OS.left(7)]
$result[^if(^name.lower[] eq 'windows'){$win}{^if(^env:HOME.left(6) eq '/Users' && def $mac){$mac;$unix}}]

E-mail: