[svn:parrot] r46765 - trunk/t

[fperrad at svn.parrot.org]

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