[svn:parrot] r46765 - trunk/t
Will Coleda
will at coleda.com
Tue May 18 16:51:04 UTC 2010
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
More information about the parrot-commits
mailing list