| 1 | #!./perl
|
|---|
| 2 |
|
|---|
| 3 | =head1 NAME
|
|---|
| 4 |
|
|---|
| 5 | s2p.t - test suite for s2p/psed
|
|---|
| 6 |
|
|---|
| 7 | =head1 NOTES
|
|---|
| 8 |
|
|---|
| 9 | The general idea is to
|
|---|
| 10 |
|
|---|
| 11 | (a) run psed with a sed script and input data to obtain some output
|
|---|
| 12 | (b) run s2p with a sed script creating a Perl program and then run the
|
|---|
| 13 | Perl program with the input data, again producing output
|
|---|
| 14 |
|
|---|
| 15 | Both final outputs should be identical to the expected output.
|
|---|
| 16 |
|
|---|
| 17 | A $testcase{<name>} contains entries (after the comment ### <name> ###):
|
|---|
| 18 |
|
|---|
| 19 | - script: the sed script
|
|---|
| 20 | - input: the key of the input data, stored in $input{<input>}
|
|---|
| 21 | - expect: the expected output
|
|---|
| 22 | - datfil: an additional file [ <path>, <data> ] (if required)
|
|---|
| 23 |
|
|---|
| 24 | Temporary files are created in the working directory (embedding $$
|
|---|
| 25 | in the name), and removed after the test.
|
|---|
| 26 |
|
|---|
| 27 | Except for bin2dec (which indeed converts binary to decimal) none of the
|
|---|
| 28 | sed scripts is doing something useful.
|
|---|
| 29 |
|
|---|
| 30 | Author: Wolfgang Laun.
|
|---|
| 31 |
|
|---|
| 32 | =cut
|
|---|
| 33 |
|
|---|
| 34 | BEGIN {
|
|---|
| 35 | chdir 't' if -d 't';
|
|---|
| 36 | @INC = ( '../lib' );
|
|---|
| 37 | }
|
|---|
| 38 |
|
|---|
| 39 | ### use Test::More;
|
|---|
| 40 | use File::Copy;
|
|---|
| 41 | use File::Spec;
|
|---|
| 42 | require './test.pl';
|
|---|
| 43 |
|
|---|
| 44 | # BRE extensions
|
|---|
| 45 | $ENV{PSEDEXTBRE} = '<>wW';
|
|---|
| 46 |
|
|---|
| 47 | our %input = (
|
|---|
| 48 | bins => <<'[TheEnd]',
|
|---|
| 49 | 0
|
|---|
| 50 | 111
|
|---|
| 51 | 1000
|
|---|
| 52 | 10001
|
|---|
| 53 | [TheEnd]
|
|---|
| 54 |
|
|---|
| 55 | text => <<'[TheEnd]',
|
|---|
| 56 | line 1
|
|---|
| 57 | line 2
|
|---|
| 58 | line 3
|
|---|
| 59 | line 4
|
|---|
| 60 | line 5
|
|---|
| 61 | line 6
|
|---|
| 62 | line 7
|
|---|
| 63 | line 8
|
|---|
| 64 | [TheEnd]
|
|---|
| 65 |
|
|---|
| 66 | adr1 => <<'[TheEnd]',
|
|---|
| 67 | #no autoprint
|
|---|
| 68 | # This script should be run on itself
|
|---|
| 69 | /^#__DATA__$/,${
|
|---|
| 70 | /^#A$/p
|
|---|
| 71 | s/^# *[0-9]* *//
|
|---|
| 72 | /^#\*$/p
|
|---|
| 73 | /^#\.$/p
|
|---|
| 74 | /^#\(..\)\(..\)\2\1*$/p
|
|---|
| 75 | /^#[abc]\{1,\}[def]\{1,\}$/p
|
|---|
| 76 | }
|
|---|
| 77 | #__DATA__
|
|---|
| 78 | #A
|
|---|
| 79 | #*
|
|---|
| 80 | #.
|
|---|
| 81 | #abxyxy
|
|---|
| 82 | #abxyxyab
|
|---|
| 83 | #abxyxyabab
|
|---|
| 84 | #ad
|
|---|
| 85 | #abcdef
|
|---|
| 86 | [TheEnd]
|
|---|
| 87 | );
|
|---|
| 88 |
|
|---|
| 89 |
|
|---|
| 90 | our %testcase = (
|
|---|
| 91 |
|
|---|
| 92 | ### bin2dec ###
|
|---|
| 93 | 'bin2dec' => {
|
|---|
| 94 | script => <<'[TheEnd]',
|
|---|
| 95 | # binary -> decimal
|
|---|
| 96 | s/^[ ]*\([01]\{1,\}\)[ ]*/\1/
|
|---|
| 97 | t go
|
|---|
| 98 | i\
|
|---|
| 99 | is not a binary number
|
|---|
| 100 | d
|
|---|
| 101 |
|
|---|
| 102 | # expand binary to Xs
|
|---|
| 103 | : go
|
|---|
| 104 | s/^0*//
|
|---|
| 105 | s/^1/X/
|
|---|
| 106 | : expand
|
|---|
| 107 | s/^\(X\{1,\}\)0/\1\1/
|
|---|
| 108 | s/^\(X\{1,\}\)1/\1\1X/
|
|---|
| 109 | t expand
|
|---|
| 110 |
|
|---|
| 111 | # count Xs in decimal
|
|---|
| 112 | : count
|
|---|
| 113 | s/^X/1/
|
|---|
| 114 | s/0X/1/
|
|---|
| 115 | s/1X/2/
|
|---|
| 116 | s/2X/3/
|
|---|
| 117 | s/3X/4/
|
|---|
| 118 | s/4X/5/
|
|---|
| 119 | s/5X/6/
|
|---|
| 120 | s/6X/7/
|
|---|
| 121 | s/7X/8/
|
|---|
| 122 | s/8X/9/
|
|---|
| 123 | s/9X/X0/
|
|---|
| 124 | t count
|
|---|
| 125 | s/^$/0/
|
|---|
| 126 | [TheEnd]
|
|---|
| 127 | input => 'bins',
|
|---|
| 128 | expect => <<'[TheEnd]',
|
|---|
| 129 | 0
|
|---|
| 130 | 7
|
|---|
| 131 | 8
|
|---|
| 132 | 17
|
|---|
| 133 | [TheEnd]
|
|---|
| 134 | },
|
|---|
| 135 |
|
|---|
| 136 |
|
|---|
| 137 | ### = ###
|
|---|
| 138 | '=' => {
|
|---|
| 139 | script => <<'[TheEnd]',
|
|---|
| 140 | 1=
|
|---|
| 141 | $=
|
|---|
| 142 | [TheEnd]
|
|---|
| 143 | input => 'text',
|
|---|
| 144 | expect => <<'[TheEnd]',
|
|---|
| 145 | 1
|
|---|
| 146 | line 1
|
|---|
| 147 | line 2
|
|---|
| 148 | line 3
|
|---|
| 149 | line 4
|
|---|
| 150 | line 5
|
|---|
| 151 | line 6
|
|---|
| 152 | line 7
|
|---|
| 153 | 8
|
|---|
| 154 | line 8
|
|---|
| 155 | [TheEnd]
|
|---|
| 156 | },
|
|---|
| 157 |
|
|---|
| 158 | ### D ###
|
|---|
| 159 | 'D' => {
|
|---|
| 160 | script => <<'[TheEnd]',
|
|---|
| 161 | #no autoprint
|
|---|
| 162 | /1/{
|
|---|
| 163 | N
|
|---|
| 164 | N
|
|---|
| 165 | N
|
|---|
| 166 | D
|
|---|
| 167 | }
|
|---|
| 168 | p
|
|---|
| 169 | /2/D
|
|---|
| 170 | =
|
|---|
| 171 | p
|
|---|
| 172 | [TheEnd]
|
|---|
| 173 | input => 'text',
|
|---|
| 174 | expect => <<'[TheEnd]',
|
|---|
| 175 | line 2
|
|---|
| 176 | line 3
|
|---|
| 177 | line 4
|
|---|
| 178 | line 3
|
|---|
| 179 | line 4
|
|---|
| 180 | 4
|
|---|
| 181 | line 3
|
|---|
| 182 | line 4
|
|---|
| 183 | line 5
|
|---|
| 184 | 5
|
|---|
| 185 | line 5
|
|---|
| 186 | line 6
|
|---|
| 187 | 6
|
|---|
| 188 | line 6
|
|---|
| 189 | line 7
|
|---|
| 190 | 7
|
|---|
| 191 | line 7
|
|---|
| 192 | line 8
|
|---|
| 193 | 8
|
|---|
| 194 | line 8
|
|---|
| 195 | [TheEnd]
|
|---|
| 196 | },
|
|---|
| 197 |
|
|---|
| 198 | ### H ###
|
|---|
| 199 | 'H' => {
|
|---|
| 200 | script => <<'[TheEnd]',
|
|---|
| 201 | #no autoprint
|
|---|
| 202 | 1,$H
|
|---|
| 203 | $g
|
|---|
| 204 | $=
|
|---|
| 205 | $p
|
|---|
| 206 | [TheEnd]
|
|---|
| 207 | input => 'text',
|
|---|
| 208 | expect => <<'[TheEnd]',
|
|---|
| 209 | 8
|
|---|
| 210 |
|
|---|
| 211 | line 1
|
|---|
| 212 | line 2
|
|---|
| 213 | line 3
|
|---|
| 214 | line 4
|
|---|
| 215 | line 5
|
|---|
| 216 | line 6
|
|---|
| 217 | line 7
|
|---|
| 218 | line 8
|
|---|
| 219 | [TheEnd]
|
|---|
| 220 | },
|
|---|
| 221 |
|
|---|
| 222 | ### N ###
|
|---|
| 223 | 'N' => {
|
|---|
| 224 | script => <<'[TheEnd]',
|
|---|
| 225 | 3a\
|
|---|
| 226 | added line
|
|---|
| 227 | 4a\
|
|---|
| 228 | added line
|
|---|
| 229 | 5a\
|
|---|
| 230 | added line
|
|---|
| 231 | 3,5N
|
|---|
| 232 | =
|
|---|
| 233 | d
|
|---|
| 234 | [TheEnd]
|
|---|
| 235 | input => 'text',
|
|---|
| 236 | expect => <<'[TheEnd]',
|
|---|
| 237 | 1
|
|---|
| 238 | 2
|
|---|
| 239 | added line
|
|---|
| 240 | 4
|
|---|
| 241 | added line
|
|---|
| 242 | 6
|
|---|
| 243 | 7
|
|---|
| 244 | 8
|
|---|
| 245 | [TheEnd]
|
|---|
| 246 | },
|
|---|
| 247 |
|
|---|
| 248 | ### P ###
|
|---|
| 249 | 'P' => {
|
|---|
| 250 | script => <<'[TheEnd]',
|
|---|
| 251 | 1N
|
|---|
| 252 | 2N
|
|---|
| 253 | 3N
|
|---|
| 254 | 4=
|
|---|
| 255 | 4P
|
|---|
| 256 | 4,$d
|
|---|
| 257 | [TheEnd]
|
|---|
| 258 | input => 'text',
|
|---|
| 259 | expect => <<'[TheEnd]',
|
|---|
| 260 | 4
|
|---|
| 261 | line 1
|
|---|
| 262 | [TheEnd]
|
|---|
| 263 | },
|
|---|
| 264 |
|
|---|
| 265 | ### a ###
|
|---|
| 266 | 'a' => {
|
|---|
| 267 | script => <<'[TheEnd]',
|
|---|
| 268 | 1a\
|
|---|
| 269 | added line 1.1\
|
|---|
| 270 | added line 1.2
|
|---|
| 271 |
|
|---|
| 272 | 3a\
|
|---|
| 273 | added line 3.1
|
|---|
| 274 | 3a\
|
|---|
| 275 | added line 3.2
|
|---|
| 276 |
|
|---|
| 277 | [TheEnd]
|
|---|
| 278 | input => 'text',
|
|---|
| 279 | expect => <<'[TheEnd]',
|
|---|
| 280 | line 1
|
|---|
| 281 | added line 1.1
|
|---|
| 282 | added line 1.2
|
|---|
| 283 | line 2
|
|---|
| 284 | line 3
|
|---|
| 285 | added line 3.1
|
|---|
| 286 | added line 3.2
|
|---|
| 287 | line 4
|
|---|
| 288 | line 5
|
|---|
| 289 | line 6
|
|---|
| 290 | line 7
|
|---|
| 291 | line 8
|
|---|
| 292 | [TheEnd]
|
|---|
| 293 | },
|
|---|
| 294 |
|
|---|
| 295 | ### b ###
|
|---|
| 296 | 'b' => {
|
|---|
| 297 | script => <<'[TheEnd]',
|
|---|
| 298 | #no autoprint
|
|---|
| 299 | 2 b eos
|
|---|
| 300 | 4 b eos
|
|---|
| 301 | p
|
|---|
| 302 | : eos
|
|---|
| 303 | [TheEnd]
|
|---|
| 304 | input => 'text',
|
|---|
| 305 | expect => <<'[TheEnd]',
|
|---|
| 306 | line 1
|
|---|
| 307 | line 3
|
|---|
| 308 | line 5
|
|---|
| 309 | line 6
|
|---|
| 310 | line 7
|
|---|
| 311 | line 8
|
|---|
| 312 | [TheEnd]
|
|---|
| 313 | },
|
|---|
| 314 |
|
|---|
| 315 | ### block ###
|
|---|
| 316 | 'block' => {
|
|---|
| 317 | script => "#no autoprint\n1,3{\n=\np\n}",
|
|---|
| 318 | input => 'text',
|
|---|
| 319 | expect => <<'[TheEnd]',
|
|---|
| 320 | 1
|
|---|
| 321 | line 1
|
|---|
| 322 | 2
|
|---|
| 323 | line 2
|
|---|
| 324 | 3
|
|---|
| 325 | line 3
|
|---|
| 326 | [TheEnd]
|
|---|
| 327 | },
|
|---|
| 328 |
|
|---|
| 329 | ### c ###
|
|---|
| 330 | 'c' => {
|
|---|
| 331 | script => <<'[TheEnd]',
|
|---|
| 332 | 2=
|
|---|
| 333 |
|
|---|
| 334 | 2,4c\
|
|---|
| 335 | change 2,4 line 1\
|
|---|
| 336 | change 2,4 line 2
|
|---|
| 337 |
|
|---|
| 338 | 2=
|
|---|
| 339 |
|
|---|
| 340 | 3,5c\
|
|---|
| 341 | change 3,5 line 1\
|
|---|
| 342 | change 3,5 line 2
|
|---|
| 343 |
|
|---|
| 344 | 3=
|
|---|
| 345 |
|
|---|
| 346 | [TheEnd]
|
|---|
| 347 | input => 'text',
|
|---|
| 348 | expect => <<'[TheEnd]',
|
|---|
| 349 | line 1
|
|---|
| 350 | 2
|
|---|
| 351 | change 2,4 line 1
|
|---|
| 352 | change 2,4 line 2
|
|---|
| 353 | line 5
|
|---|
| 354 | line 6
|
|---|
| 355 | line 7
|
|---|
| 356 | line 8
|
|---|
| 357 | [TheEnd]
|
|---|
| 358 | },
|
|---|
| 359 |
|
|---|
| 360 | ### c1 ###
|
|---|
| 361 | 'c1' => {
|
|---|
| 362 | script => <<'[TheEnd]',
|
|---|
| 363 | 1c\
|
|---|
| 364 | replaces line 1
|
|---|
| 365 |
|
|---|
| 366 | 2,3c\
|
|---|
| 367 | replaces lines 2-3
|
|---|
| 368 |
|
|---|
| 369 | /5/,/6/c\
|
|---|
| 370 | replaces lines 3-4
|
|---|
| 371 |
|
|---|
| 372 | 8,10c\
|
|---|
| 373 | replaces lines 6-10
|
|---|
| 374 | [TheEnd]
|
|---|
| 375 | input => 'text',
|
|---|
| 376 | expect => <<'[TheEnd]',
|
|---|
| 377 | replaces line 1
|
|---|
| 378 | replaces lines 2-3
|
|---|
| 379 | line 4
|
|---|
| 380 | replaces lines 3-4
|
|---|
| 381 | line 7
|
|---|
| 382 | [TheEnd]
|
|---|
| 383 | },
|
|---|
| 384 |
|
|---|
| 385 | ### c2 ###
|
|---|
| 386 | 'c2' => {
|
|---|
| 387 | script => <<'[TheEnd]',
|
|---|
| 388 | 3!c\
|
|---|
| 389 | replace all except line 3
|
|---|
| 390 |
|
|---|
| 391 | [TheEnd]
|
|---|
| 392 | input => 'text',
|
|---|
| 393 | expect => <<'[TheEnd]',
|
|---|
| 394 | replace all except line 3
|
|---|
| 395 | replace all except line 3
|
|---|
| 396 | line 3
|
|---|
| 397 | replace all except line 3
|
|---|
| 398 | replace all except line 3
|
|---|
| 399 | replace all except line 3
|
|---|
| 400 | replace all except line 3
|
|---|
| 401 | replace all except line 3
|
|---|
| 402 | [TheEnd]
|
|---|
| 403 | },
|
|---|
| 404 |
|
|---|
| 405 | ### c3 ###
|
|---|
| 406 | 'c3' => {
|
|---|
| 407 | script => <<'[TheEnd]',
|
|---|
| 408 | 1,4!c\
|
|---|
| 409 | replace all except 1-4
|
|---|
| 410 |
|
|---|
| 411 | /5/,/8/!c\
|
|---|
| 412 | replace all except 5-8
|
|---|
| 413 | [TheEnd]
|
|---|
| 414 | input => 'text',
|
|---|
| 415 | expect => <<'[TheEnd]',
|
|---|
| 416 | replace all except 5-8
|
|---|
| 417 | replace all except 5-8
|
|---|
| 418 | replace all except 5-8
|
|---|
| 419 | replace all except 5-8
|
|---|
| 420 | replace all except 1-4
|
|---|
| 421 | replace all except 1-4
|
|---|
| 422 | replace all except 1-4
|
|---|
| 423 | replace all except 1-4
|
|---|
| 424 | [TheEnd]
|
|---|
| 425 | },
|
|---|
| 426 |
|
|---|
| 427 | ### d ###
|
|---|
| 428 | 'd' => {
|
|---|
| 429 | script => <<'[TheEnd]',
|
|---|
| 430 | # d delete pattern space, start next cycle
|
|---|
| 431 | 2,4 d
|
|---|
| 432 | 5 d
|
|---|
| 433 | [TheEnd]
|
|---|
| 434 | input => 'text',
|
|---|
| 435 | expect => <<'[TheEnd]',
|
|---|
| 436 | line 1
|
|---|
| 437 | line 6
|
|---|
| 438 | line 7
|
|---|
| 439 | line 8
|
|---|
| 440 | [TheEnd]
|
|---|
| 441 | },
|
|---|
| 442 |
|
|---|
| 443 | ### gh ###
|
|---|
| 444 | 'gh' => {
|
|---|
| 445 | script => <<'[TheEnd]',
|
|---|
| 446 | 1h
|
|---|
| 447 | 2g
|
|---|
| 448 | 3h
|
|---|
| 449 | 4g
|
|---|
| 450 | 5q
|
|---|
| 451 | [TheEnd]
|
|---|
| 452 | input => 'text',
|
|---|
| 453 | expect => <<'[TheEnd]',
|
|---|
| 454 | line 1
|
|---|
| 455 | line 1
|
|---|
| 456 | line 3
|
|---|
| 457 | line 3
|
|---|
| 458 | line 5
|
|---|
| 459 | [TheEnd]
|
|---|
| 460 | },
|
|---|
| 461 |
|
|---|
| 462 | ### i ###
|
|---|
| 463 | 'i' => {
|
|---|
| 464 | script => <<'[TheEnd]',
|
|---|
| 465 | 1i\
|
|---|
| 466 | inserted line 1.1\
|
|---|
| 467 | inserted line 1.2
|
|---|
| 468 |
|
|---|
| 469 | 3i\
|
|---|
| 470 | inserted line 3.1
|
|---|
| 471 | 3i\
|
|---|
| 472 | inserted line 3.2
|
|---|
| 473 | [TheEnd]
|
|---|
| 474 | input => 'text',
|
|---|
| 475 | expect => <<'[TheEnd]',
|
|---|
| 476 | inserted line 1.1
|
|---|
| 477 | inserted line 1.2
|
|---|
| 478 | line 1
|
|---|
| 479 | line 2
|
|---|
| 480 | inserted line 3.1
|
|---|
| 481 | inserted line 3.2
|
|---|
| 482 | line 3
|
|---|
| 483 | line 4
|
|---|
| 484 | line 5
|
|---|
| 485 | line 6
|
|---|
| 486 | line 7
|
|---|
| 487 | line 8
|
|---|
| 488 | [TheEnd]
|
|---|
| 489 | },
|
|---|
| 490 |
|
|---|
| 491 | ### n ###
|
|---|
| 492 | 'n' => {
|
|---|
| 493 | script => <<'[TheEnd]',
|
|---|
| 494 | 3a\
|
|---|
| 495 | added line
|
|---|
| 496 | 4a\
|
|---|
| 497 | added line
|
|---|
| 498 | 5a\
|
|---|
| 499 | added line
|
|---|
| 500 | 3,5n
|
|---|
| 501 | =
|
|---|
| 502 | d
|
|---|
| 503 | [TheEnd]
|
|---|
| 504 | input => 'text',
|
|---|
| 505 | expect => <<'[TheEnd]',
|
|---|
| 506 | 1
|
|---|
| 507 | 2
|
|---|
| 508 | line 3
|
|---|
| 509 | added line
|
|---|
| 510 | 4
|
|---|
| 511 | line 5
|
|---|
| 512 | added line
|
|---|
| 513 | 6
|
|---|
| 514 | 7
|
|---|
| 515 | 8
|
|---|
| 516 | [TheEnd]
|
|---|
| 517 | },
|
|---|
| 518 |
|
|---|
| 519 | ### o ###
|
|---|
| 520 | 'o' => {
|
|---|
| 521 | script => <<'[TheEnd]',
|
|---|
| 522 | /abc/,/def/ s//XXX/
|
|---|
| 523 | // i\
|
|---|
| 524 | cheers
|
|---|
| 525 | [TheEnd]
|
|---|
| 526 | input => 'text',
|
|---|
| 527 | expect => <<'[TheEnd]',
|
|---|
| 528 | line 1
|
|---|
| 529 | line 2
|
|---|
| 530 | line 3
|
|---|
| 531 | line 4
|
|---|
| 532 | line 5
|
|---|
| 533 | line 6
|
|---|
| 534 | line 7
|
|---|
| 535 | line 8
|
|---|
| 536 | [TheEnd]
|
|---|
| 537 | },
|
|---|
| 538 |
|
|---|
| 539 | ### q ###
|
|---|
| 540 | 'q' => {
|
|---|
| 541 | script => <<'[TheEnd]',
|
|---|
| 542 | 2a\
|
|---|
| 543 | append to line 2
|
|---|
| 544 | 3a\
|
|---|
| 545 | append to line 3 - should not appear in output
|
|---|
| 546 | 3q
|
|---|
| 547 | [TheEnd]
|
|---|
| 548 | input => 'text',
|
|---|
| 549 | expect => <<'[TheEnd]',
|
|---|
| 550 | line 1
|
|---|
| 551 | line 2
|
|---|
| 552 | append to line 2
|
|---|
| 553 | line 3
|
|---|
| 554 | [TheEnd]
|
|---|
| 555 | },
|
|---|
| 556 |
|
|---|
| 557 | ### r ###
|
|---|
| 558 | 'r' => {
|
|---|
| 559 | datfil => [ 'r.txt', "r.txt line 1\nr.txt line 2\nr.txt line 3\n" ],
|
|---|
| 560 | script => <<'[TheEnd]',
|
|---|
| 561 | 2r%r.txt%
|
|---|
| 562 | 4r %r.txt%
|
|---|
| 563 | [TheEnd]
|
|---|
| 564 | input => 'text',
|
|---|
| 565 | expect => <<'[TheEnd]',
|
|---|
| 566 | line 1
|
|---|
| 567 | line 2
|
|---|
| 568 | r.txt line 1
|
|---|
| 569 | r.txt line 2
|
|---|
| 570 | r.txt line 3
|
|---|
| 571 | line 3
|
|---|
| 572 | line 4
|
|---|
| 573 | r.txt line 1
|
|---|
| 574 | r.txt line 2
|
|---|
| 575 | r.txt line 3
|
|---|
| 576 | line 5
|
|---|
| 577 | line 6
|
|---|
| 578 | line 7
|
|---|
| 579 | line 8
|
|---|
| 580 | [TheEnd]
|
|---|
| 581 | },
|
|---|
| 582 |
|
|---|
| 583 | ### s ###
|
|---|
| 584 | 's' => {
|
|---|
| 585 | script => <<'[TheEnd]',
|
|---|
| 586 | # enclose any `(a)'.. `(c)' in `-'
|
|---|
| 587 | s/([a-z])/-\1-/g
|
|---|
| 588 |
|
|---|
| 589 | s/\([abc]\)/-\1-/g
|
|---|
| 590 | [TheEnd]
|
|---|
| 591 | input => 'text',
|
|---|
| 592 | expect => <<'[TheEnd]',
|
|---|
| 593 | line 1
|
|---|
| 594 | line 2
|
|---|
| 595 | line 3
|
|---|
| 596 | line 4
|
|---|
| 597 | line 5
|
|---|
| 598 | line 6
|
|---|
| 599 | line 7
|
|---|
| 600 | line 8
|
|---|
| 601 | [TheEnd]
|
|---|
| 602 | },
|
|---|
| 603 |
|
|---|
| 604 | ### s1 ###
|
|---|
| 605 | 's1' => {
|
|---|
| 606 | script => <<'[TheEnd]',
|
|---|
| 607 | s/\w/@1/
|
|---|
| 608 | s/\y/@2/
|
|---|
| 609 |
|
|---|
| 610 | s/\n/@3/
|
|---|
| 611 |
|
|---|
| 612 | # this is literal { }
|
|---|
| 613 | s/a{3}/@4/
|
|---|
| 614 |
|
|---|
| 615 | # proper repetition
|
|---|
| 616 | s/a\{3\}/a rep 3/
|
|---|
| 617 | [TheEnd]
|
|---|
| 618 | input => 'text',
|
|---|
| 619 | expect => <<'[TheEnd]',
|
|---|
| 620 | @1ine 1
|
|---|
| 621 | @1ine 2
|
|---|
| 622 | @1ine 3
|
|---|
| 623 | @1ine 4
|
|---|
| 624 | @1ine 5
|
|---|
| 625 | @1ine 6
|
|---|
| 626 | @1ine 7
|
|---|
| 627 | @1ine 8
|
|---|
| 628 | [TheEnd]
|
|---|
| 629 | },
|
|---|
| 630 |
|
|---|
| 631 | ### t ###
|
|---|
| 632 | 't' => {
|
|---|
| 633 | script => join( "\n",
|
|---|
| 634 | '#no autoprint', 's/./X/p', 's/foo/bar/p', 't bye', '=', 'p', ':bye' ),
|
|---|
| 635 | input => 'text',
|
|---|
| 636 | expect => <<'[TheEnd]',
|
|---|
| 637 | Xine 1
|
|---|
| 638 | Xine 2
|
|---|
| 639 | Xine 3
|
|---|
| 640 | Xine 4
|
|---|
| 641 | Xine 5
|
|---|
| 642 | Xine 6
|
|---|
| 643 | Xine 7
|
|---|
| 644 | Xine 8
|
|---|
| 645 | [TheEnd]
|
|---|
| 646 | },
|
|---|
| 647 |
|
|---|
| 648 | ### w ###
|
|---|
| 649 | 'w' => {
|
|---|
| 650 | datfil => [ 'w.txt', '' ],
|
|---|
| 651 | script => <<'[TheEnd]',
|
|---|
| 652 | w %w.txt%
|
|---|
| 653 | [TheEnd]
|
|---|
| 654 | input => 'text',
|
|---|
| 655 | expect => <<'[TheEnd]',
|
|---|
| 656 | line 1
|
|---|
| 657 | line 2
|
|---|
| 658 | line 3
|
|---|
| 659 | line 4
|
|---|
| 660 | line 5
|
|---|
| 661 | line 6
|
|---|
| 662 | line 7
|
|---|
| 663 | line 8
|
|---|
| 664 | [TheEnd]
|
|---|
| 665 | },
|
|---|
| 666 |
|
|---|
| 667 | ### x ###
|
|---|
| 668 | 'x' => {
|
|---|
| 669 | script => <<'[TheEnd]',
|
|---|
| 670 | 1h
|
|---|
| 671 | 1d
|
|---|
| 672 | 2x
|
|---|
| 673 | 2,$G
|
|---|
| 674 | [TheEnd]
|
|---|
| 675 | input => 'text',
|
|---|
| 676 | expect => <<'[TheEnd]',
|
|---|
| 677 | line 1
|
|---|
| 678 | line 2
|
|---|
| 679 | line 3
|
|---|
| 680 | line 2
|
|---|
| 681 | line 4
|
|---|
| 682 | line 2
|
|---|
| 683 | line 5
|
|---|
| 684 | line 2
|
|---|
| 685 | line 6
|
|---|
| 686 | line 2
|
|---|
| 687 | line 7
|
|---|
| 688 | line 2
|
|---|
| 689 | line 8
|
|---|
| 690 | line 2
|
|---|
| 691 | [TheEnd]
|
|---|
| 692 | },
|
|---|
| 693 |
|
|---|
| 694 | ### y ###
|
|---|
| 695 | 'y' => {
|
|---|
| 696 | script => <<'[TheEnd]',
|
|---|
| 697 | y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/
|
|---|
| 698 | y/|/\
|
|---|
| 699 | /
|
|---|
| 700 | [TheEnd]
|
|---|
| 701 | input => 'text',
|
|---|
| 702 | expect => <<'[TheEnd]',
|
|---|
| 703 | LINE 1
|
|---|
| 704 | LINE 2
|
|---|
| 705 | LINE 3
|
|---|
| 706 | LINE 4
|
|---|
| 707 | LINE 5
|
|---|
| 708 | LINE 6
|
|---|
| 709 | LINE 7
|
|---|
| 710 | LINE 8
|
|---|
| 711 | [TheEnd]
|
|---|
| 712 | },
|
|---|
| 713 |
|
|---|
| 714 | ### cnt ###
|
|---|
| 715 | 'cnt' => {
|
|---|
| 716 | script => <<'[TheEnd]',
|
|---|
| 717 | #no autoprint
|
|---|
| 718 |
|
|---|
| 719 | # delete line, append NL to hold space
|
|---|
| 720 | s/.*//
|
|---|
| 721 | H
|
|---|
| 722 | $!b
|
|---|
| 723 |
|
|---|
| 724 | # last line only: get hold
|
|---|
| 725 | g
|
|---|
| 726 | s/./X/g
|
|---|
| 727 | t count
|
|---|
| 728 | : count
|
|---|
| 729 | s/^X/1/
|
|---|
| 730 | s/0X/1/
|
|---|
| 731 | s/1X/2/
|
|---|
| 732 | s/2X/3/
|
|---|
| 733 | s/3X/4/
|
|---|
| 734 | s/4X/5/
|
|---|
| 735 | s/5X/6/
|
|---|
| 736 | s/6X/7/
|
|---|
| 737 | s/7X/8/
|
|---|
| 738 | s/8X/9/
|
|---|
| 739 | s/9X/X0/
|
|---|
| 740 | t count
|
|---|
| 741 | p
|
|---|
| 742 | [TheEnd]
|
|---|
| 743 | input => 'text',
|
|---|
| 744 | expect => <<'[TheEnd]',
|
|---|
| 745 | 8
|
|---|
| 746 | [TheEnd]
|
|---|
| 747 | },
|
|---|
| 748 |
|
|---|
| 749 | ### adr1 ###
|
|---|
| 750 | 'adr1' => {
|
|---|
| 751 | script => <<'[TheEnd]',
|
|---|
| 752 | #no autoprint
|
|---|
| 753 | # This script should be run on itself
|
|---|
| 754 | /^#__DATA__$/,${
|
|---|
| 755 | /^#A$/p
|
|---|
| 756 | s/^# *[0-9]* *//
|
|---|
| 757 | /^#\*$/p
|
|---|
| 758 | /^#\.$/p
|
|---|
| 759 | /^#\(..\)\(..\)\2\1*$/p
|
|---|
| 760 | /^#[abc]\{1,\}[def]\{1,\}$/p
|
|---|
| 761 | }
|
|---|
| 762 | #__DATA__
|
|---|
| 763 | #A
|
|---|
| 764 | #*
|
|---|
| 765 | #.
|
|---|
| 766 | #abxyxy
|
|---|
| 767 | #abxyxyab
|
|---|
| 768 | #abxyxyabab
|
|---|
| 769 | #ad
|
|---|
| 770 | #abcdef
|
|---|
| 771 | [TheEnd]
|
|---|
| 772 | input => 'adr1',
|
|---|
| 773 | expect => <<'[TheEnd]',
|
|---|
| 774 | #A
|
|---|
| 775 | [TheEnd]
|
|---|
| 776 | },
|
|---|
| 777 |
|
|---|
| 778 | );
|
|---|
| 779 |
|
|---|
| 780 | my @aux = ();
|
|---|
| 781 | my $ntc = 2 * keys %testcase;
|
|---|
| 782 | plan( $ntc );
|
|---|
| 783 |
|
|---|
| 784 | # temporary file names
|
|---|
| 785 | my $script = "s2pt$$.sed";
|
|---|
| 786 | my $stdin = "s2pt$$.in";
|
|---|
| 787 | my $plsed = "s2pt$$.pl";
|
|---|
| 788 |
|
|---|
| 789 | # various command lines for
|
|---|
| 790 | my $s2p = File::Spec->catfile( File::Spec->updir(), 'x2p', 's2p' );
|
|---|
| 791 | my $psed = File::Spec->catfile( File::Spec->curdir(), 'psed' );
|
|---|
| 792 | if ($^O eq 'VMS') {
|
|---|
| 793 | # default in the .com extenson if it's not already there
|
|---|
| 794 | $s2p = VMS::Filespec::rmsexpand($s2p, '.com');
|
|---|
| 795 | $psed = VMS::Filespec::rmsexpand($psed, '.com');
|
|---|
| 796 | }
|
|---|
| 797 | my $sedcmd = [ $psed, '-f', $script, $stdin ];
|
|---|
| 798 | my $s2pcmd = [ $s2p, '-f', $script ];
|
|---|
| 799 | my $plcmd = [ $plsed, $stdin ];
|
|---|
| 800 |
|
|---|
| 801 | my $switches = '';
|
|---|
| 802 | $switches = ['-x'] if $^O eq 'MacOS';
|
|---|
| 803 |
|
|---|
| 804 | # psed: we create a local copy as linking may not work on some systems.
|
|---|
| 805 | copy( $s2p, $psed );
|
|---|
| 806 | push( @aux, $psed );
|
|---|
| 807 |
|
|---|
| 808 | # process all testcases
|
|---|
| 809 | #
|
|---|
| 810 | my $indat = '';
|
|---|
| 811 | for my $tc ( sort keys %testcase ){
|
|---|
| 812 | my( $psedres, $s2pres );
|
|---|
| 813 |
|
|---|
| 814 | # 1st test: run psed
|
|---|
| 815 | # prepare the script
|
|---|
| 816 | open( SED, ">$script" ) || goto FAIL_BOTH;
|
|---|
| 817 | my $script = $testcase{$tc}{script};
|
|---|
| 818 |
|
|---|
| 819 | # additional files for r, w: patch script, inserting temporary names
|
|---|
| 820 | if( exists( $testcase{$tc}{datfil} ) ){
|
|---|
| 821 | my( $datnam, $datdat ) = @{$testcase{$tc}{datfil}};
|
|---|
| 822 | my $datfil = "s2pt$$" . $datnam;
|
|---|
| 823 | push( @aux, $datfil );
|
|---|
| 824 | open( DAT, ">$datfil" ) || goto FAIL_BOTH;
|
|---|
| 825 | print DAT $datdat;
|
|---|
| 826 | close( DAT );
|
|---|
| 827 | $script =~ s/\%$datnam\%/$datfil/eg;
|
|---|
| 828 | }
|
|---|
| 829 | print SED $script;
|
|---|
| 830 | close( SED ) || goto FAIL_BOTH;
|
|---|
| 831 |
|
|---|
| 832 | # prepare input
|
|---|
| 833 | #
|
|---|
| 834 | if( $indat ne $testcase{$tc}{input} ){
|
|---|
| 835 | $indat = $testcase{$tc}{input};
|
|---|
| 836 | open( IN, ">$stdin" ) || goto FAIL_BOTH;
|
|---|
| 837 | print IN $input{$indat};
|
|---|
| 838 | close( IN ) || goto FAIL_BOTH;
|
|---|
| 839 | }
|
|---|
| 840 |
|
|---|
| 841 | # on VMS, runperl eats blank lines to work around
|
|---|
| 842 | # spurious newlines in pipes
|
|---|
| 843 | $testcase{$tc}{expect} =~ s/\n\n/\n/ if $^O eq 'VMS';
|
|---|
| 844 |
|
|---|
| 845 | # run and compare
|
|---|
| 846 | #
|
|---|
| 847 | $psedres = runperl( args => $sedcmd, switches => $switches );
|
|---|
| 848 | is( $psedres, $testcase{$tc}{expect}, "psed $tc" );
|
|---|
| 849 |
|
|---|
| 850 | # 2nd test: run s2p
|
|---|
| 851 | # translate the sed script to a Perl program
|
|---|
| 852 |
|
|---|
| 853 | my $perlprog = runperl( args => $s2pcmd, switches => $switches );
|
|---|
| 854 | open( PP, ">$plsed" ) || goto FAIL_S2P;
|
|---|
| 855 | print PP $perlprog;
|
|---|
| 856 | close( PP ) || goto FAIL_S2P;
|
|---|
| 857 |
|
|---|
| 858 | # execute generated Perl program, compare
|
|---|
| 859 | $s2pres = runperl( args => $plcmd, switches => $switches );
|
|---|
| 860 | is( $s2pres, $testcase{$tc}{expect}, "s2p $tc" );
|
|---|
| 861 | next;
|
|---|
| 862 |
|
|---|
| 863 | FAIL_BOTH:
|
|---|
| 864 | fail( "psed $tc" );
|
|---|
| 865 | FAIL_S2P:
|
|---|
| 866 | fail( "s2p $tc" );
|
|---|
| 867 | }
|
|---|
| 868 |
|
|---|
| 869 | END {
|
|---|
| 870 | for my $f ( $script, $stdin, $plsed, @aux ){
|
|---|
| 871 | 1 while unlink( $f ); # hats off to VMS...
|
|---|
| 872 | }
|
|---|
| 873 | }
|
|---|
