Return to 451-curl.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/451-curl.html, revision 1.1

1.1     ! moko        1: @main[]
        !             2: $file_a[^file::create[text;a.txt;aaa file A]]
        !             3: $file_b[^file::create[text;b.txt;bbb file B]]
        !             4: 
        !             5: $hForm[
        !             6:        $.f1_str[plain field]
        !             7:        $.f2_doc[$file_a]
        !             8:        $.f3_tbl[^table::create{col
        !             9: row-1
        !            10: row-2}]
        !            11:        $.f4_files[$file_a;$file_b]
        !            12:        $.f5_pair[one;two]
        !            13:        $.f6_mixed[
        !            14:                $.m_file[$file_b]
        !            15:                $.m_str[mixed string]
        !            16:        ]
        !            17: ]
        !            18: 
        !            19: 1. ^do[curl;$hForm]
        !            20: 2. ^do[file;$hForm]
        !            21: 
        !            22: 3. exceptions:
        !            23: ^errcases[curl]
        !            24: ^errcases[file]
        !            25: 
        !            26: @do[sLoader;hForm]
        !            27: <h2>$sLoader</h2>
        !            28: ^body[^run[$sLoader;$hForm]]
        !            29: <hr />
        !            30: 
        !            31: @run[sLoader;hForm]
        !            32: ^if($sLoader eq 'curl'){
        !            33:        $f[^curl:load[
        !            34:                $.url[http://www.parser.ru/_/tests/223.pl]
        !            35:                $.timeout(4)
        !            36:                $.httppost[$hForm]
        !            37:        ]]
        !            38: }{
        !            39:        $f[^file::load[text;http://www.parser.ru/_/tests/223.pl;
        !            40:                $.timeout(4)
        !            41:                $.method[POST]
        !            42:                $.enctype[multipart/form-data]
        !            43:                $.form[$hForm]
        !            44:        ]]
        !            45: }
        !            46: $result[^taint[as-is][$f.text]]
        !            47: 
        !            48: @body[s]
        !            49: $s[^s.match[POST:(.*)<EOF>][]{$result[^taint[as-is][$match.1]]}]
        !            50: $result[^result.match[(-{10,})-*[0-9a-zA-Z]+(--)?][g]{${match.1}boundary-value$match.2}]
        !            51: 
        !            52: @errcases[sLoader]
        !            53: 3a: $sLoader / bad element: ^try-catch-comment{ ^run[$sLoader;$.field[ $.k[^table::create{x}] ]] }
        !            54: 3b: $sLoader / unsupported: ^try-catch-comment{ ^run[$sLoader;$.bool(1==1)] }