i86/elks/elkscmd/rc/trip.rc

   1 # trip.rc -- take a tour of rc
   2 # Invoke as "path-to-new-rc < trip.rc"
   3
   4 rc=$0
   5 echo tripping $rc
   6
   7 fn fail {
   8         echo >[1=2] trip took a wrong turn: $*
   9         rm -f $tmp
  10         exit 1
  11 }
  12 fn expect {
  13         echo >[1=2] -n expect $^*^': '
  14 }
  15 fn submatch {
  16         if (!~ $#* 3)
  17                 fail incorrect invocation of submatch
  18         prompt=$nl if (!~ `` $nl {$rc -ic $1>[2=1]} $2)
  19                 fail $3
  20 }
  21 fn sigexit sigint sigquit sigsegv
  22 fn sigexit {
  23         echo trip complete
  24 }
  25 tmp=/tmp/trip.$pid
  26 rm -f $tmp
  27 nl='
  28 '
  29
  30 #
  31 # rc -c
  32 #
  33
  34 if ($rc -c >[2]/dev/null) fail 'rc -c didn''t report a bad exit status'
  35 x=`{$rc -c 'echo $0 $2 $#*' a b c d e f}
  36 if (false) {                                    # WARNING: this differs from sh
  37         if (!~ $x(1) a) fail rc -c reports '$0' incorrectly as $x(1)
  38         if (!~ $x(2) c) fail rc -c reports '$2' incorrectly as $x(2)
  39         if (!~ $x(3) 5) fail rc -c reports '$#' incorrectly as $x(3)
  40 } else {
  41         if (!~ $x(1) $rc) fail rc -c reports '$0' incorrectly as $x(1)
  42         if (!~ $x(2) b) fail rc -c reports '$2' incorrectly as $x(2)
  43         if (!~ $x(3) 6) fail rc -c reports '$#' incorrectly as $x(3)
  44 }
  45
  46 #
  47 # umask
  48 #
  49
  50 umask 0
  51 > $tmp
  52 x=`{ls -l $tmp}
  53 if (!~ $x(1) '-rw-rw-rw-') fail umask 0 produced incorrect result: $x(1)
  54 rm -f $tmp
  55 umask 027
  56 > $tmp
  57 y=`{ls -l $tmp}
  58 if (!~ $y(1) '-rw-r-----') fail umask 027 produced incorrect file: $y(1)
  59 rm -f $tmp
  60 if (!~ `umask 027) fail umask reported bad value: `umask
  61
  62 submatch 'umask bad' 'bad umask' 'bad umask'
  63 submatch 'umask -027' 'bad umask' 'bad umask'
  64 submatch 'umask 999999' 'bad umask' 'bad umask'
  65 submatch 'umask hi there' 'too many arguments to umask' 'umask arg count'
  66
  67 if (!~ `umask 027) fail bad umask changed umask value to `umask
  68
  69 #
  70 # redirections
  71 #
  72
  73 fn bytes { for (i) x=`{wc -c $i} echo $x(1) }
  74 echo foo > foo > bar
  75 if (!~ `{bytes foo} 0) fail double redirection created non-empty empty file
  76 if (!~ `{bytes bar} 4) fail double redirection created wrong sized file: `{bytes bar}
  77 rm -f foo bar
  78 echo -n >1 >[2]2 >[1=2] foo
  79 x = `` '' {cat 1}
  80 if (!~ $#x 0) fail dup created non-empty empty file: `` '' {cat 1}
  81 if (!~ `` '' {cat 2} foo) fail dup put wrong contents in file : `` '' {cat 2}
  82 rm -f 1 2
  83
  84 expect error from cat, closing stdin
  85 cat >[0=]
  86
  87 submatch 'cat>(1 2 3)' 'multi-word filename in redirection' 'redirection error'
  88 submatch 'cat>()' 'null filename in redirection' 'redirection error'
  89
  90 #
  91 # blow the input stack
  92 #
  93
  94 if (!~ hi `{
  95 eval eval eval eval eval eval eval eval eval eval eval eval eval \
  96 eval eval eval eval eval eval eval eval eval eval eval eval eval \
  97 eval eval eval eval eval eval eval eval eval eval eval eval eval \
  98 eval eval eval eval eval eval eval eval eval eval eval eval eval \
  99 eval eval eval eval eval eval eval eval eval eval eval eval eval \
 100 eval eval eval eval eval eval eval eval eval eval eval eval eval \
 101 eval eval eval eval eval eval eval eval eval eval eval eval eval \
 102 eval eval eval eval eval eval eval eval eval eval eval eval eval \
 103 eval eval eval eval eval eval eval eval eval eval eval eval eval \
 104 eval eval eval eval eval eval eval eval eval eval eval eval eval \
 105 eval eval eval eval eval eval eval eval eval eval eval echo hi
 106 })
 107         fail huge eval
 108
 109 #
 110 # heredocs and herestrings
 111 #
 112
 113 bigfile=/tmp/big.$pid
 114 od $rc | sed 5000q > $bigfile
 115 abc=(this is a)
 116 x=()
 117 result='this is a heredoc
 118 this is an heredoc
 119 '
 120 if (!~ `` '' {<<[5] EOF cat <[0=5]} $result) fail unquoted heredoc
 121 $abc heredoc$x
 122 $abc^n $x^here$x^doc
 123 EOF
 124 {if (!~ `` $nl cat '    ') fail quoted heredoc} << ' '
 125
 126
 127
 128 <<<[9] ``''{cat $bigfile} \
 129 {
 130         if(!~ ``''{cat <[0=9]}``'' cat)fail large herestrings
 131 } < \
 132 $bigfile
 133
 134 rm -f $bigfile
 135
 136 if (!~ `{cat<<eof
 137 $$
 138 eof
 139 } '$')
 140         fail quoting '$' in heredoc
 141
 142 submatch 'cat<<eof' 'heredoc incomplete' 'incomplete heredoc'
 143 submatch 'cat<<eof
 144 ' 'heredoc incomplete' 'incomplete heredoc'
 145
 146 submatch 'cat<<(eof eof)' 'eof-marker not a single literal word' 'bad heredoc marker'
 147
 148 #
 149 # lexical analysis
 150 #
 151
 152 expect warning
 153 \0
 154
 155 echo here_is_a_really_long_word.It_has_got_to_be_longer_than_1000_characters_for_the_lexical_analyzers_buffer_to_overflow_but_that_should_not_be_too_difficult_to_do.Let_me_start_writing_some_Lewis_Carroll.Twas_brillig_and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe.All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe.Beware_the_Jabberwock_my_son,The_jaws_that_bite,the_claws_that_catch.Beware_the_Jub-jub_bird,and_shun_The_frumious_Bandersnatch.He_took_his_vorpal_sword_in_hand,Long_time_the_manxome_foe_he_sought,So_rested_he_by_the_Tumtum_tree,And_stood_awhile_in_thought.And_as_in_uffish_thought_he_stood,The_Jabberwock,with_eyes_of_flame,Came_whiffling_through_the_tulgey_wood,And_burbled_as_it_came.One_two,one_two.And_through_and_through_The_vorpal_blade_went_snicker-snack.He_left_it_dead_and_with_its_head,He_went_galumphing_back.And_hast_thou_slain_the_Jabberwock?Come_to_my_arms,my_beamish_boy,Oh_frabjous_day.Callooh_callay.He_chortled_in_his_joy.Twas_brillig,and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe,All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe. > /tmp/$pid.lw
 156
 157 echo 'here_is_a_really_long_word.It_has_got_to_be_longer_than_1000_characters_for_the_lexical_analyzers_buffer_to_overflow_but_that_should_not_be_too_difficult_to_do.Let_me_start_writing_some_Lewis_Carroll.Twas_brillig_and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe.All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe.Beware_the_Jabberwock_my_son,The_jaws_that_bite,the_claws_that_catch.Beware_the_Jub-jub_bird,and_shun_The_frumious_Bandersnatch.He_took_his_vorpal_sword_in_hand,Long_time_the_manxome_foe_he_sought,So_rested_he_by_the_Tumtum_tree,And_stood_awhile_in_thought.And_as_in_uffish_thought_he_stood,The_Jabberwock,with_eyes_of_flame,Came_whiffling_through_the_tulgey_wood,And_burbled_as_it_came.One_two,one_two.And_through_and_through_The_vorpal_blade_went_snicker-snack.He_left_it_dead_and_with_its_head,He_went_galumphing_back.And_hast_thou_slain_the_Jabberwock?Come_to_my_arms,my_beamish_boy,Oh_frabjous_day.Callooh_callay.He_chortled_in_his_joy.Twas_brillig,and_the_slithy_toves,Did_gyre_and_gimble_in_the_wabe,All_mimsy_were_the_borogoves,And_the_mome-raths_outgrabe.' > /tmp/$pid.lq
 158
 159 if (!~ ``(){cat /tmp/$pid.lw} ``(){cat /tmp/$pid.lq})
 160         fail expected long string and long word to be identical
 161 if (! x=`{wc -c /tmp/$pid.lw} ~ $x(1) 1088)
 162         fail expected long word to be 1088 bytes
 163 if (! x=`{wc -c /tmp/$pid.lq} ~ $x(1) 1088)
 164         fail expected long quote to be 1088 bytes
 165
 166 rm /tmp/$pid.lw
 167 rm /tmp/$pid.lq
 168
 169 submatch 'echo hi |[2' 'expected ''='' or '']'' after digit' 'scan error'
 170 submatch 'echo hi |[92=]' 'expected digit after ''=''' 'scan error'
 171 submatch 'echo hi |[a]' 'expected digit after ''[''' 'scan error'
 172 submatch 'echo hi |[2-' 'expected ''='' or '']'' after digit' 'scan error'
 173 submatch 'echo hi |[2=99a]' 'expected '']'' after digit' 'scan error'
 174 submatch 'echo hi |[2=a99]' 'expected digit or '']'' after ''=''' 'scan error'
 175 submatch 'echo ''hi' 'eof in quoted string' 'scan error'
 176
 177 ifs='' {
 178         if (!~ 'h i' `{echo -n h\
 179 i})
 180                 fail backslash-newline to space conversion
 181         if (!~ $rc^\rc `{echo -n $rc\rc})
 182                 fail backslash after variable name did not terminate variable name scan
 183         if (!~ $rc^' rc' `{echo -n $rc\
 184 rc})
 185                 fail backslash-newline after variable name space conversion
 186         if (!~ 'h\i' `{echo -n h\i})
 187                 fail backslash in the middle of word
 188         if (!~ 'h \ i' `{echo -n h \ i})
 189                 fail free-standing backslash
 190 }
 191
 192 if (! $rc -c '# eof in comment')
 193         fail eof in comment exited with nonzero status
 194
 195 # test the syntax error printer
 196
 197 prompt='' if (!~ `` $nl {$rc -cif>[2=1]} 'line 1: '*' error near if')
 198         fail print syntax error
 199
 200 prompt='' if (!~ `` $nl {$rc -icif>[2=1]} *' error')
 201         fail print syntax error
 202
 203 #
 204 # builtins
 205 #
 206
 207 fn foo {
 208         return sigfpe
 209 }
 210
 211 foo
 212 if (!~ $status sigfpe)
 213         fail return builtin did not return sigfpe
 214
 215 fn foo # test deleting of function
 216 fn bar {
 217         for (i in 1 2 3 4 5)
 218                 if (~ $i 3)
 219                         return
 220 }
 221
 222 bar
 223 if (!~ $i 3)
 224         fail return inside loop inside function failed
 225
 226 submatch return 'return outside of function' 'return outside of function'
 227 submatch 'break 1' 'too many arguments to break' 'break arg count'
 228 submatch break 'break outside of loop' 'break outside of loop'
 229
 230 for (i in 1 2 3 4 5)
 231         if (~ $i 2)
 232                 break
 233 if (!~ $i 2)
 234         fail break out of loop
 235
 236 submatch 'wait foo' 'foo is a bad number' 'bogus argument to wait'
 237
 238 if (~ `{echo -n} ?)
 239         fail echo -n
 240 if (!~ `` '' {echo --} $nl)
 241         fail echo --
 242
 243 pwd=`/bin/pwd cdpath=/ { # some local assignments
 244         home=/tmp cd
 245         if (!~ `/bin/pwd `{sh -c 'cd /tmp; /bin/pwd'})
 246                 fail could not cd to '$home'
 247
 248         cdpath=/ cd tmp
 249         if (!~ `/bin/pwd `{sh -c 'cd /tmp; /bin/pwd'})
 250                 fail could not cd to /tmp
 251
 252         cd $pwd
 253         if (!~ `/bin/pwd `{sh -c 'cd $pwd; /bin/pwd'})
 254                 fail could not cd to current directory!
 255 }
 256
 257 *=(1 2 3 4 5) {
 258         expect bad number
 259         shift foo
 260         expect arg count
 261         shift 1 2 3
 262         expect shift overflow
 263         shift 123
 264         shift 3
 265         if (!~ $#* 2)
 266                 fail shift 3 of '(1 2 3 4 5)' failed
 267         shift
 268         if (!~ $* 5)
 269                 fail shift failed to shift left-to-right
 270 }
 271
 272 /bin/false
 273 eval && fail null eval reset '$status'
 274
 275 if (!~ `{rm=(); fn rm; path=(. /bin); whatis rm} /bin/rm)
 276         fail rm isn''''t in bin!?
 277
 278 expect list of signal handlers
 279 whatis -s
 280
 281 expect list of variables and functions
 282 whatis
 283
 284 submatch 'whatis -x' 'whatis: bad option: -x' 'bad option to whatis'
 285
 286 submatch 'whatis /frobnatz' '/frobnatz not found' 'search for /frobnatz'
 287
 288 if (~ `{whatis limit >[2]/dev/null} builtin) {
 289         limit coredumpsize 0
 290         if (!~ `{limit coredumpsize} 0*)
 291                 fail failed to set coredumpsize to zero
 292         if (!~ `` () {limit coredumpsize} `` () {limit|grep coredumpsize})
 293                 fail limit limit
 294         submatch 'limit foo' 'no such limit' 'bad limit'
 295 }
 296
 297 fn cd
 298
 299 submatch 'cd a b c' 'too many arguments to cd' 'cd arg count'
 300 $rc -c 'cdpath=() cd /frobnatz' >[2]/dev/null && fail 'cd to /frobnatz succeeded!?'
 301 submatch 'cdpath='''' cd frobnatz' 'couldn''t cd to frobnatz' 'cd to frobnatz succeeded!?'
 302
 303 'if'=keyword {
 304         {whatis if | fgrep '''if''=keyword' >/dev/null} || fail whatis of keyword is not quoted
 305 }
 306
 307 #
 308 # wait
 309 #
 310
 311 submatch 'wait 1 2 3' 'too many arguments to wait' 'arg count'
 312 $rc -c 'wait 1' >[2]/dev/null && fail wait 1
 313
 314 sleep 5&
 315 expect $apid
 316 echo $apids
 317 wait
 318
 319 if (~ `` '' {wait} ?)
 320         fail waiting for nothing
 321
 322 #
 323 # matching
 324 #
 325
 326 touch /tmp/abc.$pid /tmp/bbc.$pid
 327 mkdir /tmp/dir.$pid /tmp/dip.$pid
 328 touch /tmp/dir.$pid/^(a b c) /tmp/dip.$pid/^(a b c)
 329
 330 if (!~ 123 [~x]?[0-9])
 331         fail match
 332 if (!~ () *)
 333         fail match of null list with '*'
 334 if (~ () *v*)
 335         fail match of null list with '*v*' succeeded
 336 if (!~ (foo bar zar) *****z*****)
 337         fail match of list by one pattern failed
 338 if (~ (foo bar zar) *c*)
 339         fail bad match
 340 if (!~ [aaa [aaa)
 341         fail bad rangematch
 342 if (!~ ']' []])
 343         fail match right bracket
 344 if (~ x [y])
 345         fail rangematch out of range
 346 if (~ x x?)
 347         fail too many characters in pattern
 348
 349 test -f /////tmp//////a?c.$pid || fail glob with many slashes
 350 if (!~ /////tmp//////a*.$pid /////tmp//////a?c.$pid)
 351         fail glob with many slashes
 352 if (!~ ////tmp////di?.$pid////* ////tmp////dir.$pid////*b*)
 353         fail glob with more slashes
 354 if (! @{cd /; ~ */a*.$pid tmp/a*})
 355         fail glob in current directory
 356 if (!~ /tmp/?bc.$pid /tmp/bbc.$pid)
 357         fail match of bbc.$pid against '('abc.$pid bbc.$pid')'
 358
 359 rm /tmp/abc.$pid /tmp/bbc.$pid
 360 rm -rf /tmp/dir.$pid /tmp/dip.$pid
 361
 362 #
 363 # signals
 364 #
 365
 366 fn sigint {eval}
 367 kill -2 $pid
 368 fn sigint
 369
 370 #
 371 # path searching
 372 #
 373
 374 $rc -c /frobnatz >[2]/dev/null && fail 'search error'
 375
 376 touch /tmp/noexec.$pid
 377 chmod a-x /tmp/noexec.$pid
 378 $rc -c /tmp/noexec.$pid >[2]/dev/null && fail /tmp/noexec.$pid is found!?
 379 rm /tmp/noexec.$pid
 380
 381 submatch 'path='''' frobnatz' 'frobnatz not found' 'search error'
 382
 383 {path=() /bin/sh -c 'exit 0'} || fail abs pathname with path set to null
 384
 385 #
 386 # options
 387 #
 388
 389 # this test is meaningless; not really a trip
 390 expect prompt, echo hi
 391 home=/frobnatz $rc -nolpeivdxc 'echo hi'
 392 if (!~ `` $nl {$rc -c>[2=1]} *': option requires an argument -- c')
 393         fail getopt on -c
 394 if (!~ `` $nl {$rc -q>[2=1]} *': bad option: -q')
 395         fail getopt on -q (bogus option)
 396 if (!~ `{echo '#echo' | $rc -v |[2] sed 's/#//'} echo)
 397         fail rc -v
 398
 399 #
 400 # dot
 401 #
 402
 403 if (~ `` '' . ?*)
 404         fail null dot
 405 if (~ `` '' {. -i} ?*)
 406         fail null dot -i
 407
 408 cat > /tmp/dot.$pid << eof
 409 echo hi
 410 eof
 411
 412 prompt=';' if (!~ `` '' {. -i /tmp/dot.$pid>[2=1]} ';hi'^$nl';')
 413         fail dot -i
 414 submatch .' '/tmp/dot.$pid hi dot
 415
 416 rm /tmp/dot.$pid
 417
 418 $rc -c '. /frobnatz' >[2]/dev/null && fail 'dot of a nonexistent file'
 419
 420 #
 421 # stdin
 422 #
 423
 424 if (!~ `{echo echo hi | $rc} hi)
 425         fail piping stdin to rc
 426
 427 #
 428 # functions, variables & environment
 429 #
 430
 431 fn --- {for(i)a|[2=3]b>>c<<<'e'&f>[2=1]}
 432
 433 if (whatis printenv >/dev/null>[2=1]) {
 434         printenv=printenv
 435 } else if (whatis env >/dev/null>[2=1]) {
 436         printenv=env
 437 } else
 438         printenv=()
 439
 440 if (~ $#printenv 1 && !~ `` $nl {$printenv | grep fn___2d__2d__2d} 'fn___2d__2d__2d={for(i in $*)a|[2=3]b >>c <<<''e''&f >[2=1]}')
 441         fail protect_env
 442
 443 fn --- {replace}
 444 ~ `{whatis -- ---} *replace* || fail replace a function definition
 445 fn ---
 446 whatis -- --- >[2]/dev/null && fail function deletion
 447 foo=bar *=bar
 448 foo=nest *=nest {
 449         ~ $foo nest || fail local assignment
 450         ~ $* nest || fail local assignment to '$*'
 451         foo=()
 452         *=()
 453         ~ $foo () || fail local deletion
 454         ~ $* () || fail local deletion to '$*'
 455 }
 456 ~ $foo bar || fail restore of global after local group
 457 ~ $* bar || fail restore of '$*' after local group
 458 ~ `{exec>[2=1];$rc -xc 'foo=()'} 'foo=()' || fail -x echo of variable deletion
 459
 460 fn_ff='{' prompt='' if (!~ `` $nl {$rc -cff>[2=1]} 'line 1: '*' error near eof')
 461         fail 'bogus function in environment'
 462
 463 #
 464 # statuses
 465 #
 466
 467 ~ `{$rc -ec 'sleep 10&kill -9 $apid;wait'>[2=1]} killed ||
 468         fail status diagnostic
 469
 470 $rc -c 'exit 0 sigfpe' && fail exit of bad pipeline is true
 471
 472 submatch 'exit foo' 'bad status' 'exit diagnostic'
 473
 474 #
 475 # control structures
 476 #
 477
 478 if (!~ `{false || echo hi} hi)
 479         fail '||'
 480 if (!~ `{true && echo hi} hi)
 481         fail '&&'
 482 if (~ `{true || echo hi} hi)
 483         fail '||'
 484 if (~ `{false && echo hi} hi)
 485         fail '&&'
 486
 487 while (false)
 488         fail false while
 489 while (true) {
 490         break
 491         fail break in while
 492 }
 493
 494 switch (foo) {
 495         case bar
 496                 fail matched bar in switch
 497         case foo
 498                 eval
 499         case *
 500                 fail match foo in switch
 501 }
 502
 503 switch (nothing) {
 504         case bar
 505                 fail matched bar in switch
 506         case *
 507                 i=frobnatz
 508 }
 509
 510 ~ $i frobnatz || fail match '*' in switch
 511
 512 submatch '()=()' 'null variable name' 'assignment diagnostic'
 513 submatch 'fn () {eval}' 'null function name' 'assigning null function name'
 514
 515 #
 516 # prompt
 517 #
 518
 519 fn prompt {echo hi}
 520 prompt=() if (!~ `{$rc -i /dev/null>[2]/dev/null} hi) fail fn prompt
 521 fn prompt
 522
 523 #
 524 # history
 525 #
 526
 527 history=/tmp/hist.$pid prompt='' echo 'history=()' | $rc -i
 528
 529 if (!~ `{cat /tmp/hist.$pid} 'history=()')
 530         fail output to history file
 531
 532 history=/tmp/hist.$pid prompt='' echo 'history=()' | $rc -i
 533
 534 if (!~ `` () {cat /tmp/hist.$pid} 'history=()
 535 history=()
 536 ')
 537         fail append to history file
 538
 539 rm /tmp/hist.$pid
 540
 541 if (!~ `{history=/frobnatz/foo prompt='' echo eval | $rc -i >[2=1]} ?*)
 542         fail accessing bad history file