mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

Diffstat (limited to 'html/apps/factorial3.subx.html')

-rw-r--r--

html/apps/factorial3.subx.html

1 files changed, 1 insertions, 1 deletions

e5c11a51 ^

64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - 050scenario.cc</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="cpp"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <pre id='vimCodeElement'> <a name="L1"></a> 1 //: Mu scenarios. This will get long, but these are the tests we want to <a name="L2"></a> 2 //: support in this layer. <a name="L3"></a> 3 <a name="L4"></a> 4 //: We avoid raw numeric locations in Mu -- except in scenarios, where they're <a name="L5"></a> 5 //: handy to check the values of specific variables <a name="L6"></a> 6 :(scenarios run_mu_scenario) <a name="L7"></a> 7 :(scenario scenario_block) <a name="L8"></a> 8 scenario foo [ <a name="L9"></a> 9 run [ <a name="L10"></a> 10 1:num <- copy 13 <a name="L11"></a> 11 ] <a name="L12"></a> 12 memory-should-contain [ <a name="L13"></a> 13 1 <- 13 <a name="L14"></a> 14 ] <a name="L15"></a> 15 ] <a name="L16"></a> 16 # checks are inside scenario <a name="L17"></a> 17 <a name="L18"></a> 18 :(scenario scenario_multiple_blocks) <a name="L19"></a> 19 scenario foo [ <a name="L20"></a> 20 run [ <a name="L21"></a> 21 1:num <- copy 13 <a name="L22"></a> 22 ] <a name="L23"></a> 23 memory-should-contain [ <a name="L24"></a> 24 1 <- 13 <a name="L25"></a> 25 ] <a name="L26"></a> 26 run [ <a name="L27"></a> 27 2:num <- copy 13 <a name="L28"></a> 28 ] <a name="L29"></a> 29 memory-should-contain [ <a name="L30"></a> 30 1 <- 13 <a name="L31"></a> 31 2 <- 13 <a name="L32"></a> 32 ] <a name="L33"></a> 33 ] <a name="L34"></a> 34 # checks are inside scenario <a name="L35"></a> 35 <a name="L36"></a> 36 :(scenario scenario_check_memory_and_trace) <a name="L37"></a> 37 scenario foo [ <a name="L38"></a> 38 run [ <a name="L39"></a> 39 1:num <- copy 13 <a name="L40"></a> 40 trace 1, [a], [a b c] <a name="L41"></a> 41 ] <a name="L42"></a> 42 memory-should-contain [ <a name="L43"></a> 43 1 <- 13 <a name="L44"></a> 44 ] <a name="L45"></a> 45 trace-should-contain [ <a name="L46"></a> 46 a: a b c <a name="L47"></a> 47 ] <a name="L48"></a> 48 trace-should-not-contain [ <a name="L49"></a> 49 a: x y z <a name="L50"></a> 50 ] <a name="L51"></a> 51 ] <a name="L52"></a> 52 # checks are inside scenario <a name="L53"></a> 53 <a name="L54"></a> 54 //:: Core data structure <a name="L55"></a> 55 <a name="L56"></a> 56 :(before "End Types") <a name="L57"></a> 57 struct scenario { <a name="L58"></a> 58 string name; <a name="L59"></a> 59 string to_run; <a name="L60"></a> 60 void clear() { <a name="L61"></a> 61 name.clear(); <a name="L62"></a> 62 to_run.clear(); <a name="L63"></a> 63 } <a name="L64"></a> 64 }; <a name="L65"></a> 65 <a name="L66"></a> 66 :(before "End Globals") <a name="L67"></a> 67 vector<scenario> Scenarios; <a name="L68"></a> 68 <a name="L69"></a> 69 //:: Parse the 'scenario' form. <a name="L70"></a> 70 //: Simply store the text of the scenario. <a name="L71"></a> 71 <a name="L72"></a> 72 :(before "End Command Handlers") <a name="L73"></a> 73 else if (command == "scenario") { <a name="L74"></a> 74 scenario result = parse_scenario(in); <a name="L75"></a> 75 if (!result.name.empty()) <a name="L76"></a> 76 Scenarios.push_back(result); <a name="L77"></a> 77 } <a name="L78"></a> 78 else if (command == "pending-scenario") { <a name="L79"></a> 79 // for temporary use only <a name="L80"></a> 80 parse_scenario(in); // discard <a name="L81"></a> 81 } <a name="L82"></a> 82 <a name="L83"></a> 83 :(code) <a name="L84"></a> 84 scenario parse_scenario(istream& in) { <a name="L85"></a> 85 scenario result; <a name="L86"></a> 86 result.name = next_word(in); <a name="L87"></a> 87 if (result.name.empty()) { <a name="L88"></a> 88 assert(!has_data(in)); <a name="L89"></a> 89 raise << "incomplete scenario at end of file\n" << end(); <a name="L90"></a> 90 return result; <a name="L91"></a> 91 } <a name="L92"></a> 92 skip_whitespace_and_comments(in); <a name="L93"></a> 93 if (in.peek() != '[') { <a name="L94"></a> 94 raise << "Expected '[' after scenario '" << result.name << "'\n" << end(); <a name="L95"></a> 95 exit(0); <a name="L96"></a> 96 } <a name="L97"></a> 97 // scenarios are take special 'code' strings so we need to ignore brackets <a name="L98"></a> 98 // inside comments <a name="L99"></a> 99 result.to_run = slurp_quoted(in); <a name="L100"></a>100 // delete [] delimiters <a name="L101"></a>101 if (!starts_with(result.to_run, "[")) { <a name="L102"></a>102 raise << "scenario " << result.name << " should start with '['\n" << end(); <a name="L103"></a>103 result.clear(); <a name="L104"></a>104 return result; <a name="L105"></a>105 } <a name="L106"></a>106 result.to_run.erase(0, 1); <a name="L107"></a>107 if (result.to_run.at(SIZE(result.to_run)-1) != ']') { <a name="L108"></a>108 raise << "scenario " << result.name << " has an unbalanced '['\n" << end(); <a name="L109"></a>109 result.clear(); <a name="L110"></a>110 return result; <a name="L111"></a>111 } <a name="L112"></a>112 result.to_run.erase(SIZE(result.to_run)-1); <a name="L113"></a>113 return result; <a name="L114"></a>114 } <a name="L115"></a>115 <a name="L116"></a>116 :(scenario read_scenario_with_bracket_in_comment) <a name="L117"></a>117 scenario foo [ <a name="L118"></a>118 # ']' in comment <a name="L119"></a>119 1:num <- copy 0 <a name="L120"></a>120 ] <a name="L121"></a>121 +run: {1: "number"} <- copy {0: "literal"} <a name="L122"></a>122 <a name="L123"></a>123 :(scenario read_scenario_with_bracket_in_comment_in_nested_string) <a name="L124"></a>124 scenario foo [ <a name="L125"></a>125 1:text <- new [# not a comment] <a name="L126"></a>126 ] <a name="L127"></a>127 +run: {1: ("address" "array" "character")} <- new {"# not a comment": "literal-string"} <a name="L128"></a>128 <a name="L129"></a>129 //:: Run scenarios when we run './mu test'. <a name="L130"></a>130 //: Treat the text of the scenario as a regular series of instructions. <a name="L131"></a>131 <a name="L132"></a>132 :(before "End Globals") <a name="L133"></a>133 int Num_core_mu_scenarios = 0; <a name="L134"></a>134 :(after "Check For .mu Files") <a name="L135"></a>135 Num_core_mu_scenarios = SIZE(Scenarios); <a name="L136"></a>136 :(before "End Tests") <a name="L137"></a>137 Hide_missing_default_space_errors = false; <a name="L138"></a>138 if (Num_core_mu_scenarios > 0) { <a name="L139"></a>139 time(&t); <a name="L140"></a>140 cerr << "Mu tests: " << ctime(&t); <a name="L141"></a>141 for (int i = 0; i < Num_core_mu_scenarios; ++i) { <a name="L142"></a>142 //? cerr << '\n' < <a name="L143"></a>143 run_mu_scenario(Scenarios.at(i)); <a name="L144"></a>144 if (Passed) cerr << "."; <a name="L145"></a>145 else ++Num_failures; <a name="L146"></a>146 } <a name="L147"></a>147 cerr << "\n"; <a name="L148"></a>148 } <a name="L149"></a>149 run_app_scenarios: <a name="L150"></a>150 if (Num_core_mu_scenarios != SIZE(Scenarios)) { <a name="L151"></a>151 time(&t); <a name="L152"></a>152 cerr << "App tests: " << ctime(&t); <a name="L153"></a>153 for (int i = Num_core_mu_scenarios; i < SIZE(Scenarios); ++i) { <a name="L154"></a>154 //? cerr << '\n' < <a name="L155"></a>155 run_mu_scenario(Scenarios.at(i)); <a name="L156"></a>156 if (Passed) cerr << "."; <a name="L157"></a>157 else ++Num_failures; <a name="L158"></a>158 } <a name="L159"></a>159 cerr << "\n"; <a name="L160"></a>160 } <a name="L161"></a>161 <a name="L162"></a>162 //: For faster debugging, support running tests for just the Mu app(s) we are <a name="L163"></a>163 //: loading. <a name="L164"></a>164 :(before "End Globals") <a name="L165"></a>165 bool Test_only_app = false; <a name="L166"></a>166 :(before "End Commandline Options(*arg)") <a name="L167"></a>167 else if (is_equal(*arg, "--test-only-app")) { <a name="L168"></a>168 Test_only_app = true; <a name="L169"></a>169 } <a name="L170"></a>170 :(after "End Test Run Initialization") <a name="L171"></a>171 if (Test_only_app && Num_core_mu_scenarios < SIZE(Scenarios)) { <a name="L172"></a>172 goto run_app_scenarios; <a name="L173"></a>173 } <a name="L174"></a>174 <a name="L175"></a>175 //: Convenience: run a single named scenario. <a name="L176"></a>176 :(after "Test Runs") <a name="L177"></a>177 for (int i = 0; i < SIZE(Scenarios); ++i) { <a name="L178"></a>178 if (Scenarios.at(i).name == argv[argc-1]) { <a name="L179"></a>179 if (Start_tracing) { <a name="L180"></a>180 Trace_stream = new trace_stream; <a name="L181"></a>181 Save_trace = true; <a name="L182"></a>182 } <a name="L183"></a>183 run_mu_scenario(Scenarios.at(i)); <a name="L184"></a>184 if (Passed) cerr << ".\n"; <a name="L185"></a>185 return 0; <a name="L186"></a>186 } <a name="L187"></a>187 } <a name="L188"></a>188 <a name="L189"></a>189 :(before "End Globals") <a name="L190"></a>190 // this isn't a constant, just a global of type const* <a name="L191"></a>191 const scenario* Current_scenario = NULL; <a name="L192"></a>192 :(code) <a name="L193"></a>193 void run_mu_scenario(const scenario& s) { <a name="L194"></a>194 Current_scenario = &s; <a name="L195"></a>195 bool not_already_inside_test = !Trace_stream; <a name="L196"></a>196 //? cerr << s.name << '\n'; <a name="L197"></a>197 if (not_already_inside_test) { <a name="L198"></a>198 Trace_stream = new trace_stream; <a name="L199"></a>199 setup(); <a name="L200"></a>200 } <a name="L201"></a>201 vector<recipe_ordinal> tmp = load("recipe scenario_"+s.name+" [ "+s.to_run+" ]"); <a name="L202"></a>202 mark_autogenerated(tmp.at(0)); <a name="L203"></a>203 bind_special_scenario_names(tmp.at(0)); <a name="L204"></a>204 transform_all(); <a name="L205"></a>205 if (!trace_contains_errors()) <a name="L206"></a>206 run(tmp.front()); <a name="L207"></a>207 // End Mu Test Teardown <a name="L208"></a>208 if (!Hide_errors && trace_contains_errors() && !Scenario_testing_scenario) <a name="L209"></a>209 Passed = false; <a name="L210"></a>210 if (not_already_inside_test && Trace_stream) { <a name="L211"></a>211 teardown(); <a name="L212"></a>212 if (Save_trace) { <a name="L213"></a>213 ofstream fout("last_trace"); <a name="L214"></a>214 fout << Trace_stream->readable_contents(""); <a name="L215"></a>215 fout.close(); <a name="L216"></a>216 } <a name="L217"></a>217 delete Trace_stream; <a name="L218"></a>218 Trace_stream = NULL; <a name="L219"></a>219 } <a name="L220"></a>220 Current_scenario = NULL; <a name="L221"></a>221 } <a name="L222"></a>222 <a name="L223"></a>223 //: Permit numeric locations to be accessed in scenarios. <a name="L224"></a>224 :(before "End check_default_space Special-cases") <a name="L225"></a>225 // user code should never create recipes with underscores in their names <a name="L226"></a>226 if (caller.name.find("scenario_") == 0) return; // skip Mu scenarios which will use raw memory locations <a name="L227"></a>227 if (caller.name.find("run_") == 0) return; // skip calls to 'run', which should be in scenarios and will also use raw memory locations <a name="L228"></a>228 <a name="L229"></a>229 //: Some variables for fake resources always get special /raw addresses in scenarios. <a name="L230"></a>230 <a name="L231"></a>231 :(code) <a name="L232"></a>232 // Should contain everything passed by is_special_name but failed by is_disqualified. <a name="L233"></a>233 void bind_special_scenario_names(const recipe_ordinal r) { <a name="L234"></a>234 // Special Scenario Variable Names(r) <a name="L235"></a>235 // End Special Scenario Variable Names(r) <a name="L236"></a>236 } <a name="L237"></a>237 :(before "Done Placing Ingredient(ingredient, inst, caller)") <a name="L238"></a>238 maybe_make_raw(ingredient, caller); <a name="L239"></a>239 :(before "Done Placing Product(product, inst, caller)") <a name="L240"></a>240 maybe_make_raw(product, caller); <a name="L241"></a>241 :(code) <a name="L242"></a>242 void maybe_make_raw(reagent& r, const recipe& caller) { <a name="L243"></a>243 if (!is_special_name(r.name)) return; <a name="L244"></a>244 if (starts_with(caller.name, "scenario_")) <a name="L245"></a>245 r.properties.push_back(pair<string, string_tree*>("raw", NULL)); <a name="L246"></a>246 // End maybe_make_raw <a name="L247"></a>247 } <a name="L248"></a>248 <a name="L249"></a>249 //: Test. <a name="L250"></a>250 :(before "End is_special_name Special-cases") <a name="L251"></a>251 if (s == "__maybe_make_raw_test__") return true; <a name="L252"></a>252 :(before "End Special Scenario Variable Names(r)") <a name="L253"></a>253 //: ugly: we only need this for this one test, but need to define it for all time <a name="L254"></a>254 Name[r]["__maybe_make_raw_test__"] = Reserved_for_tests-1; <a name="L255"></a>255 :(code) <a name="L256"></a>256 void test_maybe_make_raw() { <a name="L257"></a>257 // check that scenarios can use local-scope and special variables together <a name="L258"></a>258 vector<recipe_ordinal> tmp = load( <a name="L259"></a>259 "def scenario_foo [\n" <a name="L260"></a>260 " local-scope\n" <a name="L261"></a>261 " __maybe_make_raw_test__:num <- copy 34\n" <a name="L262"></a>262 "]\n"); <a name="L263"></a>263 mark_autogenerated(tmp.at(0)); <a name="L264"></a>264 bind_special_scenario_names(tmp.at(0)); <a name="L265"></a>265 transform_all(); <a name="L266"></a>266 run(tmp.at(0)); <a name="L267"></a>267 CHECK_TRACE_DOESNT_CONTAIN_ERRORS(); <a name="L268"></a>268 } <a name="L269"></a>269 <a name="L270"></a>270 //: Watch out for redefinitions of scenario routines. We should never ever be <a name="L271"></a>271 //: doing that, regardless of anything else. <a name="L272"></a>272 :(scenarios run) <a name="L273"></a>273 :(scenario forbid_redefining_scenario_even_if_forced) <a name="L274"></a>274 % Hide_errors = true; <a name="L275"></a>275 % Disable_redefine_checks = true; <a name="L276"></a>276 def scenario-foo [ <a name="L277"></a>277 1:num <- copy 34 <a name="L278"></a>278 ] <a name="L279"></a>279 def scenario-foo [ <a name="L280"></a>280 1:num <- copy 35 <a name="L281"></a>281 ] <a name="L282"></a>282 +error: redefining recipe scenario-foo <a name="L283"></a>283 <a name="L284"></a>284 :(scenario scenario_containing_parse_error) <a name="L285"></a>285 % Hide_errors = true; <a name="L286"></a>286 scenario foo [ <a name="L287"></a>287 memory-should-contain [ <a name="L288"></a>288 1 <- 0 <a name="L289"></a>289 # missing ']' <a name="L290"></a>290 ] <a name="L291"></a>291 # no crash <a name="L292"></a>292 <a name="L293"></a>293 :(scenario scenario_containing_transform_error) <a name="L294"></a>294 % Hide_errors = true; <a name="L295"></a>295 def main [ <a name="L296"></a>296 local-scope <a name="L297"></a>297 add x, 1 <a name="L298"></a>298 ] <a name="L299"></a>299 # no crash <a name="L300"></a>300 <a name="L301"></a>301 :(after "bool should_check_for_redefine(const string& recipe_name)") <a name="L302"></a>302 if (recipe_name.find("scenario-") == 0) return true; <a name="L303"></a>303 <a name="L304"></a>304 //:: The special instructions we want to support inside scenarios. <a name="L305"></a>305 //: These are easy to support in an interpreter, but will require more work <a name="L306"></a>306 //: when we eventually build a compiler. <a name="L307"></a>307 <a name="L308"></a>308 //: 'run' is a purely lexical convenience to separate the code actually being <a name="L309"></a>309 //: tested from any setup or teardown <a name="L310"></a>310 <a name="L311"></a>311 :(scenario run) <a name="L312"></a>312 def main [ <a name="L313"></a>313 run [ <a name="L314"></a>314 1:num <- copy 13 <a name="L315"></a>315 ] <a name="L316"></a>316 ] <a name="L317"></a>317 +mem: storing 13 in location 1 <a name="L318"></a>318 <a name="L319"></a>319 :(before "End Rewrite Instruction(curr, recipe result)") <a name="L320"></a>320 if (curr.name == "run") { <a name="L321"></a>321 // Just inline all instructions inside the run block in the containing <a name="L322"></a>322 // recipe. 'run' is basically a comment; pretend it doesn't exist. <a name="L323"></a>323 istringstream in2("[\n"+curr.ingredients.at(0).name+"\n]\n"); <a name="L324"></a>324 slurp_body(in2, result); <a name="L325"></a>325 curr.clear(); <a name="L326"></a>326 } <a name="L327"></a>327 <a name="L328"></a>328 :(scenario run_multiple) <a name="L329"></a>329 def main [ <a name="L330"></a>330 run [ <a name="L331"></a>331 1:num <- copy 13 <a name="L332"></a>332 ] <a name="L333"></a>333 run [ <a name="L334"></a>334 2:num <- copy 13 <a name="L335"></a>335 ] <a name="L336"></a>336 ] <a name="L337"></a>337 +mem: storing 13 in location 1 <a name="L338"></a>338 +mem: storing 13 in location 2 <a name="L339"></a>339 <a name="L340"></a>340 //: 'memory-should-contain' raises errors if specific locations aren't as expected <a name="L341"></a>341 //: Also includes some special support for checking strings. <a name="L342"></a>342 <a name="L343"></a>343 :(before "End Globals") <a name="L344"></a>344 bool Scenario_testing_scenario = false; <a name="L345"></a>345 :(before "End Setup") <a name="L346"></a>346 Scenario_testing_scenario = false; <a name="L347"></a>347 <a name="L348"></a>348 :(scenario memory_check) <a name="L349"></a>349 % Scenario_testing_scenario = true; <a name="L350"></a>350 % Hide_errors = true; <a name="L351"></a>351 def main [ <a name="L352"></a>352 memory-should-contain [ <a name="L353"></a>353 1 <- 13 <a name="L354"></a>354 ] <a name="L355"></a>355 ] <a name="L356"></a>356 +run: checking location 1 <a name="L357"></a>357 +error: expected location '1' to contain 13 but saw 0 <a name="L358"></a>358 <a name="L359"></a>359 :(before "End Primitive Recipe Declarations") <a name="L360"></a>360 MEMORY_SHOULD_CONTAIN, <a name="L361"></a>361 :(before "End Primitive Recipe Numbers") <a name="L362"></a>362 put(Recipe_ordinal, "memory-should-contain", MEMORY_SHOULD_CONTAIN); <a name="L363"></a>363 :(before "End Primitive Recipe Checks") <a name="L364"></a>364 case MEMORY_SHOULD_CONTAIN: { <a name="L365"></a>365 break; <a name="L366"></a>366 } <a name="L367"></a>367 :(before "End Primitive Recipe Implementations") <a name="L368"></a>368 case MEMORY_SHOULD_CONTAIN: { <a name="L369"></a>369 if (!Passed) break; <a name="L370"></a>370 check_memory(current_instruction().ingredients.at(0).name); <a name="L371"></a>371 break; <a name="L372"></a>372 } <a name="L373"></a>373 <a name="L374"></a>374 :(code) <a name="L375"></a>375 void check_memory(const string& s) { <a name="L376"></a>376 istringstream in(s); <a name="L377"></a>377 in >> std::noskipws; <a name="L378"></a>378 set<int> locations_checked; <a name="L379"></a>379 while (true) { <a name="L380"></a>380 skip_whitespace_and_comments(in); <a name="L381"></a>381 if (!has_data(in)) break; <a name="L382"></a>382 string lhs = next_word(in); <a name="L383"></a>383 if (lhs.empty()) { <a name="L384"></a>384 assert(!has_data(in)); <a name="L385"></a>385 raise << "incomplete 'memory-should-contain' block at end of file (0)\n" << end(); <a name="L386"></a>386 return; <a name="L387"></a>387 } <a name="L388"></a>388 if (!is_integer(lhs)) { <a name="L389"></a>389 check_type(lhs, in); <a name="L390"></a>390 continue; <a name="L391"></a>391 } <a name="L392"></a>392 int address = to_integer(lhs); <a name="L393"></a>393 skip_whitespace_and_comments(in); <a name="L394"></a>394 string _assign; in >> _assign; assert(_assign == "<-"); <a name="L395"></a>395 skip_whitespace_and_comments(in); <a name="L396"></a>396 string rhs = next_word(in); <a name="L397"></a>397 if (rhs.empty()) { <a name="L398"></a>398 assert(!has_data(in)); <a name="L399"></a>399 raise << "incomplete 'memory-should-contain' block at end of file (1)\n" << end(); <a name="L400"></a>400 return; <a name="L401"></a>401 } <a name="L402"></a>402 if (!is_integer(rhs) && !is_noninteger(rhs)) { <a name="L403"></a>403 if (Current_scenario && !Scenario_testing_scenario) <a name="L404"></a>404 // genuine test in a .mu file <a name="L405"></a>405 raise << "\nF - " << Current_scenario->name << ": location '" << address << "' can't contain non-number " << rhs << "\n" << end(); <a name="L406"></a>406 else <a name="L407"></a>407 // just testing scenario support <a name="L408"></a>408 raise << "location '" << address << "' can't contain non-number " << rhs << '\n' << end(); <a name="L409"></a>409 if (!Scenario_testing_scenario) Passed = false; <a name="L410"></a>410 return; <a name="L411"></a>411 } <a name="L412"></a>412 double value = to_double(rhs); <a name="L413"></a>413 if (contains_key(locations_checked, address)) <a name="L414"></a>414 raise << "duplicate expectation for location '" << address << "'\n" << end(); <a name="L415"></a>415 trace(9999, "run") << "checking location " << address << end(); <a name="L416"></a>416 if (get_or_insert(Memory, address) != value) { <a name="L417"></a>417 if (Current_scenario && !Scenario_testing_scenario) { <a name="L418"></a>418 // genuine test in a .mu file <a name="L419"></a>419 raise << "\nF - " << Current_scenario->name << ": expected location '" << address << "' to contain " << no_scientific(value) << " but saw " << no_scientific(get_or_insert(Memory, address)) << '\n' << end(); <a name="L420"></a>420 } <a name="L421"></a>421 else { <a name="L422"></a>422 // just testing scenario support <a name="L423"></a>423 raise << "expected location '" << address << "' to contain " << no_scientific(value) << " but saw " << no_scientific(get_or_insert(Memory, address)) << '\n' << end(); <a name="L424"></a>424 } <a name="L425"></a>425 if (!Scenario_testing_scenario) Passed = false; <a name="L426"></a>426 return; <a name="L427"></a>427 } <a name="L428"></a>428 locations_checked.insert(address); <a name="L429"></a>429 } <a name="L430"></a>430 } <a name="L431"></a>431 <a name="L432"></a>432 void check_type(const string& lhs, istream& in) { <a name="L433"></a>433 reagent x(lhs); <a name="L434"></a>434 if (is_mu_array(x.type) && is_mu_character(array_element(x.type))) { <a name="L435"></a>435 x.set_value(to_integer(x.name)); <a name="L436"></a>436 skip_whitespace_and_comments(in); <a name="L437"></a>437 string _assign = next_word(in); <a name="L438"></a>438 if (_assign.empty()) { <a name="L439"></a>439 assert(!has_data(in)); <a name="L440"></a>440 raise << "incomplete 'memory-should-contain' block at end of file (2)\n" << end(); <a name="L441"></a>441 return; <a name="L442"></a>442 } <a name="L443"></a>443 assert(_assign == "<-"); <a name="L444"></a>444 skip_whitespace_and_comments(in); <a name="L445"></a>445 string literal = next_word(in); <a name="L446"></a>446 if (literal.empty()) { <a name="L447"></a>447 assert(!has_data(in)); <a name="L448"></a>448 raise << "incomplete 'memory-should-contain' block at end of file (3)\n" << end(); <a name="L449"></a>449 return; <a name="L450"></a>450 } <a name="L451"></a>451 int address = x.value; <a name="L452"></a>452 // exclude quoting brackets <a name="L453"></a>453 assert(*literal.begin() == '['); literal.erase(literal.begin()); <a name="L454"></a>454 assert(*--literal.end() == ']'); literal.erase(--literal.end()); <a name="L455"></a>455 check_string(address, literal); <a name="L456"></a>456 return; <a name="L457"></a>457 } <a name="L458"></a>458 // End Scenario Type Special-cases <a name="L459"></a>459 raise << "don't know how to check memory for '" << lhs << "'\n" << end(); <a name="L460"></a>460 } <a name="L461"></a>461 <a name="L462"></a>462 void check_string(int address, const string& literal) { <a name="L463"></a>463 trace(9999, "run") << "checking string length at " << address << end(); <a name="L464"></a>464 if (get_or_insert(Memory, address) != SIZE(literal)) { <a name="L465"></a>465 if (Current_scenario && !Scenario_testing_scenario) <a name="L466"></a>466 raise << "\nF - " << Current_scenario->name << ": expected location '" << address << "' to contain length " << SIZE(literal) << " of string [" << literal << "] but saw " << no_scientific(get_or_insert(Memory, address)) << " (" << read_mu_text(address-/*fake refcount*/1) << ")\n" << end(); <a name="L467"></a>467 else <a name="L468"></a>468 raise << "expected location '" << address << "' to contain length " << SIZE(literal) << " of string [" << literal << "] but saw " << no_scientific(get_or_insert(Memory, address)) << '\n' << end(); <a name="L469"></a>469 if (!Scenario_testing_scenario) Passed = false; <a name="L470"></a>470 return; <a name="L471"></a>471 } <a name="L472"></a>472 ++address; // now skip length <a name="L473"></a>473 for (int i = 0; i < SIZE(literal); ++i) { <a name="L474"></a>474 trace(9999, "run") << "checking location " << address+i << end(); <a name="L475"></a>475 if (get_or_insert(Memory, address+i) != literal.at(i)) { <a name="L476"></a>476 if (Current_scenario && !Scenario_testing_scenario) { <a name="L477"></a>477 // genuine test in a .mu file <a name="L478"></a>478 raise << "\nF - " << Current_scenario->name << ": expected location " << (address+i) << " to contain " << literal.at(i) << " but saw " << no_scientific(get_or_insert(Memory, address+i)) << " ('" << static_cast<char>(get_or_insert(Memory, address+i)) << "')\n" << end(); <a name="L479"></a>479 } <a name="L480"></a>480 else { <a name="L481"></a>481 // just testing scenario support <a name="L482"></a>482 raise << "expected location " << (address+i) << " to contain " << literal.at(i) << " but saw " << no_scientific(get_or_insert(Memory, address+i)) << '\n' << end(); <a name="L483"></a>483 } <a name="L484"></a>484 if (!Scenario_testing_scenario) Passed = false; <a name="L485"></a>485 return; <a name="L486"></a>486 } <a name="L487"></a>487 } <a name="L488"></a>488 } <a name="L489"></a>489 <a name="L490"></a>490 :(scenario memory_check_multiple) <a name="L491"></a>491 % Scenario_testing_scenario = true; <a name="L492"></a>492 % Hide_errors = true; <a name="L493"></a>493 def main [ <a name="L494"></a>494 memory-should-contain [ <a name="L495"></a>495 1 <- 0 <a name="L496"></a>496 1 <- 0 <a name="L497"></a>497 ] <a name="L498"></a>498 ] <a name="L499"></a>499 +error: duplicate expectation for location '1' <a name="L500"></a>500 <a name="L501"></a>501 :(scenario memory_check_string_length) <a name="L502"></a>502 % Scenario_testing_scenario = true; <a name="L503"></a>503 % Hide_errors = true; <a name="L504"></a>504 def main [ <a name="L505"></a>505 1:num <- copy 3 <a name="L506"></a>506 2:num <- copy 97 # 'a' <a name="L507"></a>507 3:num <- copy 98 # 'b' <a name="L508"></a>508 4:num <- copy 99 # 'c' <a name="L509"></a>509 memory-should-contain [ <a name="L510"></a>510 1:array:character <- [ab] <a name="L511"></a>511 ] <a name="L512"></a>512 ] <a name="L513"></a>513 +error: expected location '1' to contain length 2 of string [ab] but saw 3 <a name="L514"></a>514 <a name="L515"></a>515 :(scenario memory_check_string) <a name="L516"></a>516 def main [ <a name="L517"></a>517 1:num <- copy 3 <a name="L518"></a>518 2:num <- copy 97 # 'a' <a name="L519"></a>519 3:num <- copy 98 # 'b' <a name="L520"></a>520 4:num <- copy 99 # 'c' <a name="L521"></a>521 memory-should-contain [ <a name="L522"></a>522 1:array:character <- [abc] <a name="L523"></a>523 ] <a name="L524"></a>524 ] <a name="L525"></a>525 +run: checking string length at 1 <a name="L526"></a>526 +run: checking location 2 <a name="L527"></a>527 +run: checking location 3 <a name="L528"></a>528 +run: checking location 4 <a name="L529"></a>529 <a name="L530"></a>530 :(scenario memory_invalid_string_check) <a name="L531"></a>531 % Scenario_testing_scenario = true; <a name="L532"></a>532 % Hide_errors = true; <a name="L533"></a>533 def main [ <a name="L534"></a>534 memory-should-contain [ <a name="L535"></a>535 1 <- [abc] <a name="L536"></a>536 ] <a name="L537"></a>537 ] <a name="L538"></a>538 +error: location '1' can't contain non-number [abc] <a name="L539"></a>539 <a name="L540"></a>540 :(scenario memory_check_with_comment) <a name="L541"></a>541 % Scenario_testing_scenario = true; <a name="L542"></a>542 % Hide_errors = true; <a name="L543"></a>543 def main [ <a name="L544"></a>544 memory-should-contain [ <a name="L545"></a>545 1 <- 34 # comment <a name="L546"></a>546 ] <a name="L547"></a>547 ] <a name="L548"></a>548 -error: location 1 can't contain non-number 34 # comment <a name="L549"></a>549 # but there'll be an error signalled by memory-should-contain <a name="L550"></a>550 <a name="L551"></a>551 //: 'trace-should-contain' is like the '+' lines in our scenarios so far <a name="L552"></a>552 // Like runs of contiguous '+' lines, order is important. The trace checks <a name="L553"></a>553 // that the lines are present *and* in the specified sequence. (There can be <a name="L554"></a>554 // other lines in between.) <a name="L555"></a>555 <a name="L556"></a>556 :(scenario trace_check_fails) <a name="L557"></a>557 % Scenario_testing_scenario = true; <a name="L558"></a>558 % Hide_errors = true; <a name="L559"></a>559 def main [ <a name="L560"></a>560 trace-should-contain [ <a name="L561"></a>561 a: b <a name="L562"></a>562 a: d <a name="L563"></a>563 ] <a name="L564"></a>564 ] <a name="L565"></a>565 +error: missing [b] in trace with label 'a' <a name="L566"></a>566 <a name="L567"></a>567 :(before "End Primitive Recipe Declarations") <a name="L568"></a>568 TRACE_SHOULD_CONTAIN, <a name="L569"></a>569 :(before "End Primitive Recipe Numbers") <a name="L570"></a>570 put(Recipe_ordinal, "trace-should-contain", TRACE_SHOULD_CONTAIN); <a name="L571"></a>571 :(before "End Primitive Recipe Checks") <a name="L572"></a>572 case TRACE_SHOULD_CONTAIN: { <a name="L573"></a>573 break; <a name="L574"></a>574 } <a name="L575"></a>575 :(before "End Primitive Recipe Implementations") <a name="L576"></a>576 case TRACE_SHOULD_CONTAIN: { <a name="L577"></a>577 if (!Passed) break; <a name="L578"></a>578 check_trace(current_instruction().ingredients.at(0).name); <a name="L579"></a>579 break; <a name="L580"></a>580 } <a name="L581"></a>581 <a name="L582"></a>582 :(code) <a name="L583"></a>583 // simplified version of check_trace_contents() that emits errors rather <a name="L584"></a>584 // than just printing to stderr <a name="L585"></a>585 void check_trace(const string& expected) { <a name="L586"></a>586 Trace_stream->newline(); <a name="L587"></a>587 vector<trace_line> expected_lines = parse_trace(expected); <a name="L588"></a>588 if (expected_lines.empty()) return; <a name="L589"></a>589 int curr_expected_line = 0; <a name="L590"></a>590 for (vector<trace_line>::iterator p = Trace_stream->past_lines.begin(); p != Trace_stream->past_lines.end(); ++p) { <a name="L591"></a>591 if (expected_lines.at(curr_expected_line).label != p->label) continue; <a name="L592"></a>592 if (expected_lines.at(curr_expected_line).contents != trim(p->contents)) continue; <a name="L593"></a>593 // match <a name="L594"></a>594 ++curr_expected_line; <a name="L595"></a>595 if (curr_expected_line == SIZE(expected_lines)) return; <a name="L596"></a>596 } <a name="L597"></a>597 if (Current_scenario && !Scenario_testing_scenario) <a name="L598"></a>598 raise << "\nF - " << Current_scenario->name << ": missing [" << expected_lines.at(curr_expected_line).contents << "] " <a name="L599"></a>599 << "in trace with label '" << expected_lines.at(curr_expected_line).label << "'\n" << end(); <a name="L600"></a>600 else <a name="L601"></a>601 raise << "missing [" << expected_lines.at(curr_expected_line).contents << "] " <a name="L602"></a>602 << "in trace with label '" << expected_lines.at(curr_expected_line).label << "'\n" << end(); <a name="L603"></a>603 if (!Hide_errors) <a name="L604"></a>604 DUMP(expected_lines.at(curr_expected_line).label); <a name="L605"></a>605 if (!Scenario_testing_scenario) Passed = false; <a name="L606"></a>606 } <a name="L607"></a>607 <a name="L608"></a>608 vector<trace_line> parse_trace(const string& expected) { <a name="L609"></a>609 vector<string> buf = split(expected, "\n"); <a name="L610"></a>610 vector<trace_line> result; <a name="L611"></a>611 for (int i = 0; i < SIZE(buf); ++i) { <a name="L612"></a>612 buf.at(i) = trim(buf.at(i)); <a name="L613"></a>613 if (buf.at(i).empty()) continue; <a name="L614"></a>614 int delim = buf.at(i).find(": "); <a name="L615"></a>615 if (delim == -1) { <a name="L616"></a>616 raise << Current_scenario->name << ": lines in 'trace-should-contain' should be of the form <label>: <contents>. Both parts are required.\n" << end(); <a name="L617"></a>617 result.clear(); <a name="L618"></a>618 return result; <a name="L619"></a>619 } <a name="L620"></a>620 result.push_back(trace_line(trim(buf.at(i).substr(0, delim)), trim(buf.at(i).substr(delim+2)))); <a name="L621"></a>621 } <a name="L622"></a>622 return result; <a name="L623"></a>623 } <a name="L624"></a>624 <a name="L625"></a>625 :(scenario trace_check_fails_in_nonfirst_line) <a name="L626"></a>626 % Scenario_testing_scenario = true; <a name="L627"></a>627 % Hide_errors = true; <a name="L628"></a>628 def main [ <a name="L629"></a>629 run [ <a name="L630"></a>630 trace 1, [a], [b] <a name="L631"></a>631 ] <a name="L632"></a>632 trace-should-contain [ <a name="L633"></a>633 a: b <a name="L634"></a>634 a: d <a name="L635"></a>635 ] <a name="L636"></a>636 ] <a name="L637"></a>637 +error: missing [d] in trace with label 'a' <a name="L638"></a>638 <a name="L639"></a>639 :(scenario trace_check_passes_silently) <a name="L640"></a>640 % Scenario_testing_scenario = true; <a name="L641"></a>641 def main [ <a name="L642"></a>642 run [ <a name="L643"></a>643 trace 1, [a], [b] <a name="L644"></a>644 ] <a name="L645"></a>645 trace-should-contain [ <a name="L646"></a>646 a: b <a name="L647"></a>647 ] <a name="L648"></a>648 ] <a name="L649"></a>649 -error: missing [b] in trace with label 'a' <a name="L650"></a>650 $error: 0 <a name="L651"></a>651 <a name="L652"></a>652 //: 'trace-should-not-contain' is like the '-' lines in our scenarios so far <a name="L653"></a>653 //: Each trace line is separately checked for absense. Order is *not* <a name="L654"></a>654 //: important, so you can't say things like "B should not exist after A." <a name="L655"></a>655 <a name="L656"></a>656 :(scenario trace_negative_check_fails) <a name="L657"></a>657 % Scenario_testing_scenario = true; <a name="L658"></a>658 % Hide_errors = true; <a name="L659"></a>659 def main [ <a name="L660"></a>660 run [ <a name="L661"></a>661 trace 1, [a], [b] <a name="L662"></a>662 ] <a name="L663"></a>663 trace-should-not-contain [ <a name="L664"></a>664 a: b <a name="L665"></a>665 ] <a name="L666"></a>666 ] <a name="L667"></a>667 +error: unexpected [b] in trace with label 'a' <a name="L668"></a>668 <a name="L669"></a>669 :(before "End Primitive Recipe Declarations") <a name="L670"></a>670 TRACE_SHOULD_NOT_CONTAIN, <a name="L671"></a>671 :(before "End Primitive Recipe Numbers") <a name="L672"></a>672 put(Recipe_ordinal, "trace-should-not-contain", TRACE_SHOULD_NOT_CONTAIN); <a name="L673"></a>673 :(before "End Primitive Recipe Checks") <a name="L674"></a>674 case TRACE_SHOULD_NOT_CONTAIN: { <a name="L675"></a>675 break; <a name="L676"></a>676 } <a name="L677"></a>677 :(before "End Primitive Recipe Implementations") <a name="L678"></a>678 case TRACE_SHOULD_NOT_CONTAIN: { <a name="L679"></a>679 if (!Passed) break; <a name="L680"></a>680 check_trace_missing(current_instruction().ingredients.at(0).name); <a name="L681"></a>681 break; <a name="L682"></a>682 } <a name="L683"></a>683 <a name="L684"></a>684 :(code) <a name="L685"></a>685 // simplified version of check_trace_contents() that emits errors rather <a name="L686"></a>686 // than just printing to stderr <a name="L687"></a>687 bool check_trace_missing(const string& in) { <a name="L688"></a>688 Trace_stream->newline(); <a name="L689"></a>689 vector<trace_line> lines = parse_trace(in); <a name="L690"></a>690 for (int i = 0; i < SIZE(lines); ++i) { <a name="L691"></a>691 if (trace_count(lines.at(i).label, lines.at(i).contents) != 0) { <a name="L692"></a>692 raise << "unexpected [" << lines.at(i).contents << "] in trace with label '" << lines.at(i).label << "'\n" << end(); <a name="L693"></a>693 if (!Scenario_testing_scenario) Passed = false; <a name="L694"></a>694 return false; <a name="L695"></a>695 } <a name="L696"></a>696 } <a name="L697"></a>697 return true; <a name="L698"></a>698 } <a name="L699"></a>699 <a name="L700"></a>700 :(scenario trace_negative_check_passes_silently) <a name="L701"></a>701 % Scenario_testing_scenario = true; <a name="L702"></a>702 def main [ <a name="L703"></a>703 trace-should-not-contain [ <a name="L704"></a>704 a: b <a name="L705"></a>705 ] <a name="L706"></a>706 ] <a name="L707"></a>707 -error: unexpected [b] in trace with label 'a' <a name="L708"></a>708 $error: 0 <a name="L709"></a>709 <a name="L710"></a>710 :(scenario trace_negative_check_fails_on_any_unexpected_line) <a name="L711"></a>711 % Scenario_testing_scenario = true; <a name="L712"></a>712 % Hide_errors = true; <a name="L713"></a>713 def main [ <a name="L714"></a>714 run [ <a name="L715"></a>715 trace 1, [a], [d] <a name="L716"></a>716 ] <a name="L717"></a>717 trace-should-not-contain [ <a name="L718"></a>718 a: b <a name="L719"></a>719 a: d <a name="L720"></a>720 ] <a name="L721"></a>721 ] <a name="L722"></a>722 +error: unexpected [d] in trace with label 'a' <a name="L723"></a>723 <a name="L724"></a>724 :(scenario trace_count_check) <a name="L725"></a>725 def main [ <a name="L726"></a>726 run [ <a name="L727"></a>727 trace 1, [a], [foo] <a name="L728"></a>728 ] <a name="L729"></a>729 check-trace-count-for-label 1, [a] <a name="L730"></a>730 ] <a name="L731"></a>731 # checks are inside scenario <a name="L732"></a>732 <a name="L733"></a>733 :(before "End Primitive Recipe Declarations") <a name="L734"></a>734 CHECK_TRACE_COUNT_FOR_LABEL, <a name="L735"></a>735 :(before "End Primitive Recipe Numbers") <a name="L736"></a>736 put(Recipe_ordinal, "check-trace-count-for-label", CHECK_TRACE_COUNT_FOR_LABEL); <a name="L737"></a>737 :(before "End Primitive Recipe Checks") <a name="L738"></a>738 case CHECK_TRACE_COUNT_FOR_LABEL: { <a name="L739"></a>739 if (SIZE(inst.ingredients) != 2) { <a name="L740"></a>740 raise << maybe(get(Recipe, r).name) << "'check-trace-count-for-label' requires exactly two ingredients, but got '" << inst.original_string << "'\n" << end(); <a name="L741"></a>741 break; <a name="L742"></a>742 } <a name="L743"></a>743 if (!is_mu_number(inst.ingredients.at(0))) { <a name="L744"></a>744 raise << maybe(get(Recipe, r).name) << "first ingredient of 'check-trace-count-for-label' should be a number (count), but got '" << inst.ingredients.at(0).original_string << "'\n" << end(); <a name="L745"></a>745 break; <a name="L746"></a>746 } <a name="L747"></a>747 if (!is_literal_text(inst.ingredients.at(1))) { <a name="L748"></a>748 raise << maybe(get(Recipe, r).name) << "second ingredient of 'check-trace-count-for-label' should be a literal string (label), but got '" << inst.ingredients.at(1).original_string << "'\n" << end(); <a name="L749"></a>749 break; <a name="L750"></a>750 } <a name="L751"></a>751 break; <a name="L752"></a>752 } <a name="L753"></a>753 :(before "End Primitive Recipe Implementations") <a name="L754"></a>754 case CHECK_TRACE_COUNT_FOR_LABEL: { <a name="L755"></a>755 if (!Passed) break; <a name="L756"></a>756 int expected_count = ingredients.at(0).at(0); <a name="L757"></a>757 string label = current_instruction().ingredients.at(1).name; <a name="L758"></a>758 int count = trace_count(label); <a name="L759"></a>759 if (count != expected_count) { <a name="L760"></a>760 if (Current_scenario && !Scenario_testing_scenario) { <a name="L761"></a>761 // genuine test in a .mu file <a name="L762"></a>762 raise << "\nF - " << Current_scenario->name << ": " << maybe(current_recipe_name()) << "expected " << expected_count << " lines in trace with label '" << label << "' in trace: " << end(); <a name="L763"></a>763 DUMP(label); <a name="L764"></a>764 } <a name="L765"></a>765 else { <a name="L766"></a>766 // just testing scenario support <a name="L767"></a>767 raise << maybe(current_recipe_name()) << "expected " << expected_count << " lines in trace with label '" << label << "' in trace\n" << end(); <a name="L768"></a>768 } <a name="L769"></a>769 if (!Scenario_testing_scenario) Passed = false; <a name="L770"></a>770 } <a name="L771"></a>771 break; <a name="L772"></a>772 } <a name="L773"></a>773 <a name="L774"></a>774 :(scenario trace_count_check_2) <a name="L775"></a>775 % Scenario_testing_scenario = true; <a name="L776"></a>776 % Hide_errors = true; <a name="L777"></a>777 def main [ <a name="L778"></a>778 run [ <a name="L779"></a>779 trace 1, [a], [foo] <a name="L780"></a>780 ] <a name="L781"></a>781 check-trace-count-for-label 2, [a] <a name="L782"></a>782 ] <a name="L783"></a>783 +error: main: expected 2 lines in trace with label 'a' in trace <a name="L784"></a>784 <a name="L785"></a>785 //: Minor detail: ignore 'system' calls in scenarios, since anything we do <a name="L786"></a>786 //: with them is by definition impossible to test through Mu. <a name="L787"></a>787 :(after "case _SYSTEM:") <a name="L788"></a>788 if (Current_scenario) break; <a name="L789"></a>789 <a name="L790"></a>790 //:: Warn if people use '_' manually in function names. They're reserved for internal use. <a name="L791"></a>791 <a name="L792"></a>792 :(scenario recipe_name_with_underscore) <a name="L793"></a>793 % Hide_errors = true; <a name="L794"></a>794 def foo_bar [ <a name="L795"></a>795 ] <a name="L796"></a>796 +error: foo_bar: don't create recipes with '_' in the name <a name="L797"></a>797 <a name="L798"></a>798 :(before "End recipe Fields") <a name="L799"></a>799 bool is_autogenerated; <a name="L800"></a>800 :(before "End recipe Constructor") <a name="L801"></a>801 is_autogenerated = false; <a name="L802"></a>802 :(code) <a name="L803"></a>803 void mark_autogenerated(recipe_ordinal r) { <a name="L804"></a>804 get(Recipe, r).is_autogenerated = true; <a name="L805"></a>805 } <a name="L806"></a>806 <a name="L807"></a>807 :(after "void transform_all()") <a name="L808"></a>808 for (map<recipe_ordinal, recipe>::iterator p = Recipe.begin(); p != Recipe.end(); ++p) { <a name="L809"></a>809 const recipe& r = p->second; <a name="L810"></a>810 if (r.name.find('_') == string::npos) continue; <a name="L811"></a>811 if (r.is_autogenerated) continue; // created by previous call to transform_all() <a name="L812"></a>812 raise << r.name << ": don't create recipes with '_' in the name\n" << end(); <a name="L813"></a>813 } <a name="L814"></a>814 <a name="L815"></a>815 //:: Helpers <a name="L816"></a>816 <a name="L817"></a>817 :(code) <a name="L818"></a>818 // just for the scenarios running scenarios in C++ layers <a name="L819"></a>819 void run_mu_scenario(const string& form) { <a name="L820"></a>820 istringstream in(form); <a name="L821"></a>821 in >> std::noskipws; <a name="L822"></a>822 skip_whitespace_and_comments(in); <a name="L823"></a>823 string _scenario = next_word(in); <a name="L824"></a>824 if (_scenario.empty()) { <a name="L825"></a>825 assert(!has_data(in)); <a name="L826"></a>826 raise << "no scenario in string passed into run_mu_scenario()\n" << end(); <a name="L827"></a>827 return; <a name="L828"></a>828 } <a name="L829"></a>829 assert(_scenario == "scenario"); <a name="L830"></a>830 scenario s = parse_scenario(in); <a name="L831"></a>831 run_mu_scenario(s); <a name="L832"></a>832 } </pre> </body> </html>


context:
space:
mode: