[svn:parrot] r46765 - trunk/t

[Will Coleda]

I would hold off on this until after the release.

--
Will "Coke" Coleda

On May 18, 2010, at 11:58, fperrad at svn.parrot.org wrote:

> Author: fperrad
> Date: Tue May 18 15:58:10 2010
> New Revision: 46765
> URL: https://trac.parrot.org/parrot/changeset/46765
>
> Log:
> send smoke report to Smolder with LWP.pir (instead of curl)
>
> Modified:
>   trunk/t/harness.pir
>
> Modified: trunk/t/harness.pir
> ===
> ===
> ===
> =====================================================================
> --- trunk/t/harness.pir    Tue May 18 15:22:28 2010    (r46764)
> +++ trunk/t/harness.pir    Tue May 18 15:58:10 2010    (r46765)
> @@ -333,38 +333,40 @@
>
> .sub 'send_archive_to_smolder' :anon
>     .param pmc env_data
> -    load_bytecode 'osutils.pbc'
> -    .const string archive = 'parrot_test_run.tar.gz'
> -    .const string smolder_url = 'http://smolder.plusthree.com/app/projects/process_add_report/8'
> -    .const string username = 'parrot-autobot'
> -    .const string password = 'squ at wk'
>     .local pmc config
>     $P0 = getinterp
>     config = $P0[.IGLOBALS_CONFIG_HASH]
> -    .local string cmd
> -    cmd = "curl -F architecture="
> +    .local pmc contents
> +    contents = new 'ResizablePMCArray' # by couple
> +    push contents, 'architecture'
>     $S0 = config['cpuarch']
> -    cmd .= $S0
> -    cmd .= " -F platform="
> +    push contents, $S0
> +    push contents, 'platform'
>     $S0 = config['osname']
> -    cmd .= $S0
> -    cmd .= " -F revision="
> +    push contents, $S0
> +    push contents, 'revision'
>     $S0 = config['revision']
> -    cmd .= $S0
> -    cmd .= " -F tags=\""
> +    push contents, $S0
> +    push contents, 'tags'
>     $S0 = _get_tags(env_data)
> -    cmd .= $S0
> -    cmd .= "\""
> -    cmd .= " -F username="
> -    cmd .= username
> -    cmd .= " -F password="
> -    cmd .= password
> -    cmd .= " -F comments=\"EXPERIMENTAL t/harness.pir\""
> -    cmd .= " -F report_file=@"
> -    cmd .= archive
> -    cmd .= " "
> -    cmd .= smolder_url
> -    .tailcall system(cmd, 1 :named('verbose'))
> +    push contents, $S0
> +    push contents, 'username'
> +    push contents, 'parrot-autobot'
> +    push contents, 'password'
> +    push contents, 'squ at wk'
> +    push contents, 'comments'
> +    push contents, "EXPERIMENTAL t/harness.pir with LWP.pir"
> +    push contents, 'report_file'
> +    $P0 = new 'FixedStringArray'
> +    set $P0, 1
> +    $P0[0] = 'parrot_test_run.tar.gz'
> +    push contents, $P0
> +    load_bytecode 'LWP.pir'
> +    .const string url = 'http://smolder.plusthree.com/app/projects/process_add_report/8'
> +    .local pmc ua, response
> +    ua = new ['LWP';'UserAgent']
> +    ua.'show_progress'(1)
> +    response = ua.'post'(url, contents :flat, 'form-data' :named 
> ('Content-Type'), 'close' :named('Connection'))
> .end
>
> .sub '_get_tags' :anon
> _______________________________________________
> http://lists.parrot.org/mailman/listinfo/parrot-commits