Ticket #1360: tt1360.fperrad.patch
File tt1360.fperrad.patch, 18.1 KB (added by jkeenan, 12 years ago) |
---|
-
tools/install/smoke.pl
60 60 61 61 chdir $DESTDIR if ($DESTDIR); 62 62 63 sub quote { 64 my $exe = shift; 65 $exe .= '.exe' if ($^O eq 'MSWin32'); 66 $exe = '"' . $exe . '"' if ($exe =~ / /); 67 return $exe; 68 } 69 63 70 my $filename; 64 71 my $exe; 65 72 my $out; 66 73 my $FH; 67 my $parrot = catfile($bindir, 'parrot');68 my $pirc = catfile($bindir, 'pirc');69 my $nqp = catfile($bindir, 'parrot-nqp');74 my $parrot = quote(catfile($bindir, 'parrot')); 75 my $pirc = quote(catfile($bindir, 'pirc')); 76 my $nqp = quote(catfile($bindir, 'parrot-nqp')); 70 77 71 78 # 72 79 # parrot executable 73 80 # 74 81 75 $exe = catfile($bindir, 'pbc_merge');82 $exe = quote(catfile($bindir, 'pbc_merge')); 76 83 $out = `$exe`; 77 84 ok($out =~ /^pbc_merge/, "check pbc_merge"); 78 85 79 $exe = catfile($bindir, 'pbc_dump');86 $exe = quote(catfile($bindir, 'pbc_dump')); 80 87 $out = `$exe`; 81 88 ok($out =~ /^pbc_dump/, "check pbc_dump"); 82 89 -
tools/install/smoke_languages.pl
62 62 chdir($DESTDIR) if ($DESTDIR); 63 63 my $pwd = getcwd(); 64 64 65 sub quote { 66 my $exe = shift; 67 $exe .= '.exe' if ($^O eq 'MSWin32'); 68 $exe = '"' . $exe . '"' if ($exe =~ / /); 69 return $exe; 70 } 71 65 72 my $filename; 66 73 my $exe; 67 74 my $out; 68 75 my $FH; 69 my $parrot = catfile($pwd, $bindir, 'parrot');76 my $parrot = quote(catfile($pwd, $bindir, 'parrot')); 70 77 71 78 $out = `$parrot -V`; 72 79 $out =~ m/version (\S+) built/; … … 82 89 83 90 SKIP: 84 91 { 85 skip("abc", 1) unless (-d "$pwd/$langdir/abc"); 92 $exe = quote(catfile($pwd, $bindir, 'parrot-abc')); 93 skip("abc", 1) unless (-d "$pwd/$langdir/abc" || -e $exe); 86 94 chdir("$pwd/$langdir/abc"); 87 95 $filename = 'test.bc'; 88 96 open $FH, '>', $filename 89 97 or die "Can't open $filename ($!).\n"; 90 98 print $FH "1 + 2\n"; 91 99 close $FH; 92 $exe = catfile($pwd, $bindir, 'parrot-abc');93 $exe .= '.exe' if ($^O eq 'MSWin32');94 100 $exe = "$parrot abc.pbc" unless (-e $exe); 95 101 $out = `$exe $filename`; 96 102 ok($out eq "3\n", "check abc"); … … 99 105 100 106 SKIP: 101 107 { 102 skip("Befunge", 1) unless (-d "$pwd/$langdir/befunge"); 108 $exe = quote(catfile($pwd, $bindir, 'parrot-befunge')); 109 skip("Befunge", 1) unless (-d "$pwd/$langdir/befunge" || -e $exe); 103 110 chdir("$pwd/$langdir/befunge"); 104 111 $filename = 'test.bef'; 105 112 open $FH, '>', $filename … … 117 124 > :8- ^ 118 125 CODE 119 126 close $FH; 120 $exe = catfile($pwd, $bindir, 'parrot-befunge');121 $exe .= '.exe' if ($^O eq 'MSWin32');122 127 $exe = "$parrot befunge.pbc" unless (-e $exe); 123 128 $out = `$exe $filename`; 124 129 ok($out eq "If you can see a 4 here ->4 <- then everything is ok!\n", "check befunge"); … … 127 132 128 133 SKIP: 129 134 { 130 skip("bf", 3) unless (-d "$pwd/$langdir/bf"); 135 $exe = quote(catfile($pwd, $bindir, 'parrot-bf')); 136 skip("bf", 3) unless (-d "$pwd/$langdir/bf" || -e $exe); 131 137 chdir("$pwd/$langdir/bf"); 132 $exe = catfile($pwd, $bindir, 'parrot-bf');133 $exe .= '.exe' if ($^O eq 'MSWin32');134 138 $exe = "$parrot bf.pbc" unless (-e $exe); 135 139 $out = `$exe`; 136 140 ok($out =~ /^usage/, "check bf"); 137 $exe = catfile($pwd, $bindir, 'parrot-bfc'); 138 $exe .= '.exe' if ($^O eq 'MSWin32'); 141 $exe = quote(catfile($pwd, $bindir, 'parrot-bfc')); 139 142 $exe = "$parrot bfc.pbc" unless (-e $exe); 140 143 $out = `$exe`; 141 144 ok($out =~ /^usage/, "check bfc"); 142 $exe = catfile($pwd, $bindir, 'parrot-bfco'); 143 $exe .= '.exe' if ($^O eq 'MSWin32'); 145 $exe = quote(catfile($pwd, $bindir, 'parrot-bfco')); 144 146 $exe = "$parrot bfco.pbc" unless (-e $exe); 145 147 $out = `$exe`; 146 148 ok($out =~ /^usage/, "check bfco"); … … 157 159 else { 158 160 skip("blizkost", 1) 159 161 } 162 $exe = quote(catfile($pwd, $bindir, 'parrot-blizkost')); 160 163 $filename = 'test.pl'; 161 164 open $FH, '>', $filename 162 165 or die "Can't open $filename ($!).\n"; 163 166 print $FH "print qq{Hello, World!\n};\n"; 164 167 close $FH; 165 $exe = catfile($pwd, $bindir, 'parrot-blizkost');166 $exe .= '.exe' if ($^O eq 'MSWin32');167 168 $exe = "$parrot perl5.pbc" unless (-e $exe); 168 169 $out = `$exe $filename`; 169 170 ok($out eq "Hello, World!\n" || $out eq "Hello, World!\r\n", "check blizkost"); … … 172 173 173 174 SKIP: 174 175 { 175 skip("Cardinal", 1) unless (-d "$pwd/$langdir/cardinal"); 176 $exe = quote(catfile($pwd, $bindir, 'parrot-cardinal')); 177 skip("Cardinal", 1) unless (-d "$pwd/$langdir/cardinal" || -e $exe); 176 178 chdir("$pwd/$langdir/cardinal"); 177 $exe = catfile($pwd, $bindir, 'parrot-cardinal');178 $exe .= '.exe' if ($^O eq 'MSWin32');179 179 $exe = "$parrot cardinal.pbc" unless (-e $exe); 180 180 $out = `$exe -e "print 'hello world';"`; 181 181 ok($out eq "hello world", "check cardinal"); … … 183 183 184 184 SKIP: 185 185 { 186 skip("ChitChat", 1) unless (-d "$pwd/$langdir/chitchat"); 186 $exe = quote(catfile($pwd, $bindir, 'parrot-chitchat')); 187 skip("ChitChat", 1) unless (-d "$pwd/$langdir/chitchat" || -e $exe); 187 188 chdir("$pwd/$langdir/chitchat"); 188 189 $filename = 'test.smalltalk'; 189 190 open $FH, '>', $filename 190 191 or die "Can't open $filename ($!).\n"; 191 192 print $FH "Transcript show: 'Hello, world!'."; 192 193 close $FH; 193 $exe = catfile($pwd, $bindir, 'parrot-chitchat');194 $exe .= '.exe' if ($^O eq 'MSWin32');195 194 $exe = "$parrot chitchat.pbc" unless (-e $exe); 196 195 $out = `$exe $filename`; 197 196 ok($out eq "Hello, world!\n", "check chitchat"); … … 208 207 209 208 SKIP: 210 209 { 211 skip("EcmaScript", 1) unless (-d "$pwd/$langdir/ecmascript"); 210 $exe = quote(catfile($pwd, $bindir, 'parrot-js')); 211 skip("EcmaScript", 1) unless (-d "$pwd/$langdir/ecmascript" || -e $exe); 212 212 chdir("$pwd/$langdir/ecmascript"); 213 213 $filename = 'test.js'; 214 214 open $FH, '>', $filename 215 215 or die "Can't open $filename ($!).\n"; 216 216 print $FH "print(\"Hello World from JS\");"; 217 217 close $FH; 218 $exe = catfile($pwd, $bindir, 'parrot-js');219 $exe .= '.exe' if ($^O eq 'MSWin32');220 218 $exe = "$parrot js.pbc" unless (-e $exe); 221 219 $out = `$exe $filename`; 222 220 ok($out eq "Hello World from JS\n", "check ecmascript"); … … 225 223 226 224 SKIP: 227 225 { 228 skip("fun", 1) unless (-d "$pwd/$langdir/fun"); 226 $exe = quote(catfile($pwd, $bindir, 'parrot-fun')); 227 skip("fun", 1) unless (-d "$pwd/$langdir/fun" || -e $exe); 229 228 chdir("$pwd/$langdir/fun"); 230 229 $filename = 'test.fun'; 231 230 open $FH, '>', $filename 232 231 or die "Can't open $filename ($!).\n"; 233 232 print $FH "\"Hello World!\"."; 234 233 close $FH; 235 $exe = catfile($pwd, $bindir, 'parrot-fun');236 $exe .= '.exe' if ($^O eq 'MSWin32');237 234 $exe = "$parrot fun.pbc" unless (-e $exe); 238 235 $out = `$exe $filename`; 239 236 ok($out eq "Hello World!\n", "check fun"); … … 242 239 243 240 SKIP: 244 241 { 245 skip("gil", 1) unless (-d "$pwd/$langdir/gil"); 242 $exe = quote(catfile($pwd, $bindir, 'parrot-gil')); 243 skip("gil", 1) unless (-d "$pwd/$langdir/gil" || -e $exe); 246 244 chdir("$pwd/$langdir/gil"); 247 245 $filename = 'test.gil'; 248 246 open $FH, '>', $filename 249 247 or die "Can't open $filename ($!).\n"; 250 248 print $FH q{say('Hello, world!');}; 251 249 close $FH; 252 $exe = catfile($pwd, $bindir, 'parrot-gil');253 $exe .= '.exe' if ($^O eq 'MSWin32');254 250 $exe = "$parrot gil.pbc" unless (-e $exe); 255 251 $out = `$exe $filename`; 256 252 ok($out eq "Hello, world!\n", "check gil"); … … 259 255 260 256 SKIP: 261 257 { 262 skip("HQ9Plus", 1) unless (-d "$pwd/$langdir/hq9plus"); 258 $exe = quote(catfile($pwd, $bindir, 'parrot-hq9plus')); 259 skip("HQ9Plus", 1) unless (-d "$pwd/$langdir/hq9plus" || -e $exe); 263 260 chdir("$pwd/$langdir/hq9plus"); 264 261 $filename = 'test.HQ9Plus'; 265 262 open $FH, '>', $filename 266 263 or die "Can't open $filename ($!).\n"; 267 264 print $FH "H"; 268 265 close $FH; 269 $exe = catfile($pwd, $bindir, 'parrot-hq9plus');270 $exe .= '.exe' if ($^O eq 'MSWin32');271 266 $exe = "$parrot hq9plus.pbc" unless (-e $exe); 272 267 $out = `$exe $filename`; 273 268 ok($out eq "Hello, world!\n", "check HQ9Plus"); … … 276 271 277 272 SKIP: 278 273 { 279 skip("Lisp", 1) unless (-d "$pwd/$langdir/lisp"); 274 $exe = quote(catfile($pwd, $bindir, 'parrot-lisp')); 275 skip("Lisp", 1) unless (-d "$pwd/$langdir/lisp" || -e $exe); 280 276 chdir("$pwd/$langdir/lisp"); 281 277 $filename = 'test.l'; 282 278 open $FH, '>', $filename 283 279 or die "Can't open $filename ($!).\n"; 284 280 print $FH "( print \"Hello, World!\" )\n"; 285 281 close $FH; 286 $exe = catfile($pwd, $bindir, 'parrot-lisp');287 $exe .= '.exe' if ($^O eq 'MSWin32');288 282 $exe = "$parrot lisp.pbc" unless (-e $exe); 289 283 $out = `$exe $filename`; 290 284 ok($out eq "Hello, World!\n", "check lisp"); … … 293 287 294 288 SKIP: 295 289 { 296 skip("LOLCODE", 1) unless (-d "$pwd/$langdir/lolcode"); 290 $exe = quote(catfile($pwd, $bindir, 'parrot-lolcode')); 291 skip("LOLCODE", 1) unless (-d "$pwd/$langdir/lolcode" || -e $exe); 297 292 chdir("$pwd/$langdir/lolcode"); 298 293 $filename = 'test.lolcode'; 299 294 open $FH, '>', $filename … … 304 299 KTHXBYE 305 300 CODE 306 301 close $FH; 307 $exe = catfile($pwd, $bindir, 'parrot-lolcode');308 $exe .= '.exe' if ($^O eq 'MSWin32');309 302 $exe = "$parrot lolcode.pbc" unless (-e $exe); 310 303 $out = `$exe $filename`; 311 304 ok($out eq "HAI WORLD!\n", "check lolcode"); … … 314 307 315 308 SKIP: 316 309 { 317 skip("Lua", 1) unless (-d "$pwd/$langdir/lua"); 310 $exe = quote(catfile($pwd, $bindir, 'parrot-lua')); 311 skip("Lua", 1) unless (-d "$pwd/$langdir/lua" || -e $exe); 318 312 chdir("$pwd/$langdir/lua"); 319 $exe = catfile($pwd, $bindir, 'parrot-lua');320 $exe .= '.exe' if ($^O eq 'MSWin32');321 313 $exe = "$parrot lua.pbc" unless (-e $exe); 322 314 $out = `$exe -e "print(nil)"`; 323 315 ok($out eq "nil\n", "check lua"); … … 325 317 326 318 SKIP: 327 319 { 328 skip("m4", 1) unless (-d "$pwd/$langdir/m4"); 320 $exe = quote(catfile($pwd, $bindir, 'parrot-m4')); 321 skip("m4", 1) unless (-d "$pwd/$langdir/m4" || -e $exe); 329 322 chdir("$pwd/$langdir/m4"); 330 $exe = catfile($pwd, $bindir, 'parrot-m4');331 $exe .= '.exe' if ($^O eq 'MSWin32');332 323 $exe = "$parrot m4.pbc" unless (-e $exe); 333 324 $out = `$exe`; 334 325 ok($out =~ /^Usage/, "check m4"); … … 336 327 337 328 SKIP: 338 329 { 339 skip("Markdown", 1) unless (-d "$pwd/$langdir/markdown"); 330 $exe = quote(catfile($pwd, $bindir, 'parrot-markdown')); 331 skip("Markdown", 1) unless (-d "$pwd/$langdir/markdown" || -e $exe); 340 332 chdir("$pwd/$langdir/markdown"); 341 333 $filename = 'test.text'; 342 334 open $FH, '>', $filename 343 335 or die "Can't open $filename ($!).\n"; 344 336 print $FH "Hello, World!\n\n"; 345 337 close $FH; 346 $exe = catfile($pwd, $bindir, 'parrot-markdown');347 $exe .= '.exe' if ($^O eq 'MSWin32');348 338 $exe = "$parrot markdown.pbc" unless (-e $exe); 349 339 $out = `$exe $filename`; 350 340 ok($out eq "<p>Hello, World!</p>\n", "check markdown"); … … 353 343 354 344 SKIP: 355 345 { 356 skip("matrixy", 1) unless (-d "$pwd/$langdir/matrixy"); 346 $exe = quote(catfile($pwd, $bindir, 'parrot-matrixy')); 347 skip("matrixy", 1) unless (-d "$pwd/$langdir/matrixy" || -e $exe); 357 348 chdir("$pwd/$langdir/matrixy"); 358 349 $filename = 'test.oct'; 359 350 open $FH, '>', $filename 360 351 or die "Can't open $filename ($!).\n"; 361 352 print $FH "printf(\"Hello, world!\n\");"; 362 353 close $FH; 363 $exe = catfile($pwd, $bindir, 'parrot-matrixy');364 $exe .= '.exe' if ($^O eq 'MSWin32');365 354 $exe = "$parrot matrixy.pbc" unless (-e $exe); 366 355 $out = `$exe $filename`; 367 356 ok($out eq "Hello, world!\n", "check matrixy"); … … 370 359 371 360 SKIP: 372 361 { 373 skip("Paraplegic", 1) unless (-d "$pwd/$langdir/paraplegic"); 362 $exe = quote(catfile($pwd, $bindir, 'parrot-apl')); 363 skip("Paraplegic", 1) unless (-d "$pwd/$langdir/paraplegic" || -e $exe); 374 364 chdir("$pwd/$langdir/paraplegic"); 375 365 $filename = 'test.apl'; 376 366 open $FH, '>', $filename 377 367 or die "Can't open $filename ($!).\n"; 378 368 print $FH "\"Hello world!\""; 379 369 close $FH; 380 $exe = catfile($pwd, $bindir, 'parrot-apl');381 $exe .= '.exe' if ($^O eq 'MSWin32');382 370 $exe = "$parrot apl.pbc" unless (-e $exe); 383 371 $out = `$exe $filename`; 384 372 ok($out eq "Hello world!\n", "check Paraplegic"); … … 387 375 388 376 SKIP: 389 377 { 390 skip("Pheme", 1) unless (-d "$pwd/$langdir/pheme"); 378 $exe = quote(catfile($pwd, $bindir, 'parrot-pheme')); 379 skip("Pheme", 1) unless (-d "$pwd/$langdir/pheme" || -e $exe); 391 380 chdir("$pwd/$langdir/pheme"); 392 381 $filename = 'test.l'; 393 382 open $FH, '>', $filename 394 383 or die "Can't open $filename ($!).\n"; 395 384 print $FH "( write \"Hello, World!\\n\" )\n"; 396 385 close $FH; 397 $exe = catfile($pwd, $bindir, 'parrot-pheme');398 $exe .= '.exe' if ($^O eq 'MSWin32');399 386 $exe = "$parrot pheme.pbc" unless (-e $exe); 400 387 $out = `$exe $filename`; 401 388 ok($out eq "Hello, World!\n", "check pheme"); … … 404 391 405 392 SKIP: 406 393 { 407 skip("Pipp", 1) unless (-d "$pwd/$langdir/pipp"); 394 $exe = quote(catfile($pwd, $bindir, 'parrot-pipp')); 395 skip("Pipp", 1) unless (-d "$pwd/$langdir/pipp" || -e $exe); 408 396 chdir("$pwd/$langdir/pipp"); 409 397 $filename = 'test.php'; 410 398 open $FH, '>', $filename 411 399 or die "Can't open $filename ($!).\n"; 412 400 print $FH "<?php echo \"Hello, World!\\n\"; ?>"; 413 401 close $FH; 414 $exe = catfile($pwd, $bindir, 'parrot-pipp');415 $exe .= '.exe' if ($^O eq 'MSWin32');416 402 $exe = "$parrot pipp.pbc" unless (-e $exe); 417 403 $out = `$exe $filename`; 418 404 ok($out eq "Hello, World!\n", "check pipp"); … … 421 407 422 408 SKIP: 423 409 { 424 skip("porcupine", 1) unless (-d "$pwd/$langdir/porcupine"); 410 $exe = quote(catfile($pwd, $bindir, 'parrot-porcupine')); 411 skip("porcupine", 1) unless (-d "$pwd/$langdir/porcupine" || -e $exe); 425 412 chdir("$pwd/$langdir/porcupine"); 426 413 $filename = 'test.pas'; 427 414 open $FH, '>', $filename … … 433 420 end. 434 421 CODE 435 422 close $FH; 436 $exe = catfile($pwd, $bindir, 'parrot-porcupine');437 $exe .= '.exe' if ($^O eq 'MSWin32');438 423 $exe = "$parrot porcupine.pbc" unless (-e $exe); 439 424 $out = `$exe $filename`; 440 425 ok($out eq "Hello, world!\n", "check porcupine"); … … 443 428 444 429 SKIP: 445 430 { 446 skip("primitivearc", 1) unless (-d "$pwd/$langdir/primitivearc"); 431 $exe = quote(catfile($pwd, $bindir, 'parrot-primitivearc')); 432 skip("primitivearc", 1) unless (-d "$pwd/$langdir/primitivearc" || -e $exe); 447 433 chdir("$pwd/$langdir/primitivearc"); 448 434 $filename = 'test.arc'; 449 435 open $FH, '>', $filename 450 436 or die "Can't open $filename ($!).\n"; 451 437 print $FH q{"Hello, world!\n"}; 452 438 close $FH; 453 $exe = catfile($pwd, $bindir, 'parrot-primitivearc');454 $exe .= '.exe' if ($^O eq 'MSWin32');455 439 $exe = "$parrot primitivearc.pbc" unless (-e $exe); 456 440 $out = `$exe $filename`; 457 441 ok($out eq "Hello, world!\n\n", "check primitivearc"); … … 460 444 461 445 SKIP: 462 446 { 463 skip("Punie", 1) unless (-d "$pwd/$langdir/punie"); 447 $exe = quote(catfile($pwd, $bindir, 'parrot-punie')); 448 skip("Punie", 1) unless (-d "$pwd/$langdir/punie" || -e $exe); 464 449 chdir("$pwd/$langdir/punie"); 465 450 $filename = 'test.p1'; 466 451 open $FH, '>', $filename 467 452 or die "Can't open $filename ($!).\n"; 468 453 print $FH "print \"Hello, World!\";\n"; 469 454 close $FH; 470 $exe = catfile($pwd, $bindir, 'parrot-punie');471 $exe .= '.exe' if ($^O eq 'MSWin32');472 455 $exe = "$parrot punie.pbc" unless (-e $exe); 473 456 $out = `$exe $filename`; 474 457 ok($out eq "Hello, World!", "check punie"); … … 477 460 478 461 SKIP: 479 462 { 480 skip("Pynie", 1) unless (-d "$pwd/$langdir/pynie"); 463 $exe = quote(catfile($pwd, $bindir, 'parrot-pynie')); 464 skip("Pynie", 1) unless (-d "$pwd/$langdir/pynie" || -e $exe); 481 465 chdir("$pwd/$langdir/pynie"); 482 466 $filename = 'test.py'; 483 467 open $FH, '>', $filename 484 468 or die "Can't open $filename ($!).\n"; 485 469 print $FH "print('Hello, World!')\n"; 486 470 close $FH; 487 $exe = catfile($pwd, $bindir, 'parrot-pynie');488 $exe .= '.exe' if ($^O eq 'MSWin32');489 471 $exe = "$parrot pynie.pbc" unless (-e $exe); 490 472 $out = `$exe $filename`; 491 473 ok($out eq "Hello, World!\n", "check pynie"); … … 494 476 495 477 SKIP: 496 478 { 497 skip("Rakudo", 1) unless (-d "$pwd/$langdir/rakudo"); 479 $exe = quote(catfile($pwd, $bindir, 'perl6')); 480 skip("Rakudo", 1) unless (-d "$pwd/$langdir/rakudo" || -e $exe); 498 481 chdir("$pwd/$langdir/rakudo"); 499 $exe = catfile($pwd, $bindir, 'perl6');500 $exe .= '.exe' if ($^O eq 'MSWin32');501 482 $exe = "$parrot perl6.pbc" unless (-e $exe); 502 483 $out = `$exe -e "say 'hello world'"`; 503 484 ok($out eq "hello world\n", "check rakudo"); … … 505 486 506 487 SKIP: 507 488 { 508 skip("Shakespeare", 1) unless (-d "$pwd/$langdir/shakespeare"); 489 $exe = quote(catfile($pwd, $bindir, 'parrot-shakespeare')); 490 skip("Shakespeare", 1) unless (-d "$pwd/$langdir/shakespeare" || -e $exe); 509 491 chdir("$pwd/$langdir/shakespeare"); 510 492 $filename = 'test.spl'; 511 493 open $FH, '>', $filename … … 603 585 604 586 CODE 605 587 close $FH; 606 $exe = catfile($pwd, $bindir, 'parrot-shakespeare');607 $exe .= '.exe' if ($^O eq 'MSWin32');608 588 $exe = "$parrot shakespeare.pbc" unless (-e $exe); 609 589 $out = `$exe $filename`; 610 590 ok($out eq "Hello World!\n", "check shakespeare"); … … 613 593 614 594 SKIP: 615 595 { 616 skip("steme", 1) unless (-d "$pwd/$langdir/steme"); 596 $exe = quote(catfile($pwd, $bindir, 'parrot-steme')); 597 skip("steme", 1) unless (-d "$pwd/$langdir/steme" || -e $exe); 617 598 chdir("$pwd/$langdir/steme"); 618 599 $filename = 'test.scm'; 619 600 open $FH, '>', $filename 620 601 or die "Can't open $filename ($!).\n"; 621 602 print $FH "( say \"Hello, World!\" )\n"; 622 603 close $FH; 623 $exe = catfile($pwd, $bindir, 'parrot-steme');624 $exe .= '.exe' if ($^O eq 'MSWin32');625 604 $exe = "$parrot steme.pbc" unless (-e $exe); 626 605 $out = `$exe $filename`; 627 606 ok($out eq "Hello, World!\n", "check steme"); … … 630 609 631 610 SKIP: 632 611 { 633 skip("Squaak", 1) unless (-d "$pwd/$langdir/squaak"); 612 $exe = quote(catfile($pwd, $bindir, 'parrot-squaak')); 613 skip("Squaak", 1) unless (-d "$pwd/$langdir/squaak" || -e $exe); 634 614 chdir("$pwd/$langdir/squaak"); 635 615 $filename = 'test.squaak'; 636 616 open $FH, '>', $filename 637 617 or die "Can't open $filename ($!).\n"; 638 618 print $FH "print(\"Hello, World!\")\n"; 639 619 close $FH; 640 $exe = catfile($pwd, $bindir, 'parrot-squaak');641 $exe .= '.exe' if ($^O eq 'MSWin32');642 620 $exe = "$parrot squaak.pbc" unless (-e $exe); 643 621 $out = `$exe $filename`; 644 622 ok($out eq "Hello, World!\n", "check squaak"); … … 647 625 648 626 SKIP: 649 627 { 650 skip("unlambda", 1) unless (-d "$pwd/$langdir/unlambda"); 628 $exe = quote(catfile($pwd, $bindir, 'parrot-unl')); 629 skip("unlambda", 1) unless (-d "$pwd/$langdir/unlambda" || -e $exe); 651 630 chdir("$pwd/$langdir/unlambda"); 652 631 $filename = 'test.unl'; 653 632 open $FH, '>', $filename … … 657 636 `r```````````.H.e.l.l.o. .w.o.r.l.di 658 637 CODE 659 638 close $FH; 660 $exe = catfile($pwd, $bindir, 'parrot-unl');661 $exe .= '.exe' if ($^O eq 'MSWin32');662 639 $exe = "$parrot unl.pbc" unless (-e $exe); 663 640 $out = `$exe $filename`; 664 641 ok($out eq "Hello world\n", "check unlambda"); … … 667 644 668 645 SKIP: 669 646 { 670 skip("WMLScript", 1) unless (-d "$pwd/$langdir/wmlscript"); 647 $exe = quote(catfile($pwd, $bindir, 'parrot-wmlsi')); 648 skip("WMLScript", 1) unless (-d "$pwd/$langdir/wmlscript" || -e $exe); 671 649 skip("WMLScript, not wmlsc", 1) unless (`wmlsc -h` =~ /wmlsc/); 672 650 chdir("$pwd/$langdir/wmlscript"); 673 651 … … 682 660 CODE 683 661 close $FH; 684 662 `wmlsc $filename`; 685 $exe = catfile($pwd, $bindir, 'parrot-wmlsi');686 $exe .= '.exe' if ($^O eq 'MSWin32');687 663 $exe = "$parrot wmlsi.pbc" unless (-e $exe); 688 664 $out = `$exe ${filename}c main`; 689 665 ok($out eq "Hello World!\n", "check wmlscript");