Groups | Search | Server Info | Login | Register

Groups > comp.lang.cobol > #12888

Re: Using one 01 in another 01?

From Bruce Axtens <snetxa@hotmail.com>
Newsgroups comp.lang.cobol
Subject Re: Using one 01 in another 01?
Date 2025-02-05 21:54 +0800
Organization A noiseless patient Spider
Message-ID <vnvqid$2cj31$1@dont-email.me> (permalink)
References <vns0so$1j4ho$1@dont-email.me> <vns4j5$4rl$1@reader2.panix.com>

Show all headers | View raw

So the code gets run by cobolcheck with a .cut file of

TestCase "ROT0"
	MOVE 0 TO WS-KEY
	MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

TestCase "ROT26"
	MOVE 26 TO WS-KEY
	MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'

TestCase "ROT1"
	MOVE 1 TO WS-KEY
	MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = 'BCDEFGHIJKLMNOPQRSTUVWXYZA'

TestCase "ROT13"
	MOVE 13 TO WS-KEY
	MOVE 'abcdefghijklmnopqrstuvwxyz' TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = 'NOPQRSTUVWXYZABCDEFGHIJKLM'

TestCase "ROT5 Capital Letters"
	MOVE 5 TO WS-KEY
	MOVE 'OMG' TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = 'TRL'

TestCase "ROT5 Numbers"
	MOVE 5 TO WS-KEY
	MOVE 'Testing 1 2 3 testing' TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = 'YJXYNSL 1 2 3 YJXYNSL'

TestCase "ROT5 Punctuation"
	MOVE 5 TO WS-KEY
	MOVE "Let's eat, Grandma!" TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = "QJY'X JFY, LWFSIRF!"

TestCase "ROT13 Quick Fox"
	MOVE 13 TO WS-KEY
	MOVE "The quick brown fox jumps over the lazy dog." TO WS-TEXT
	PERFORM ROTATIONAL-CIPHER
	EXPECT WS-CIPHER = "GUR DHVPX OEBJA SBK WHZCF BIRE GUR YNML QBT."

This is based on files in 
https://github.com/exercism/problem-specifications/tree/main/exercises/rotational-cipher

So what my question was really about was whether one WS value can be 
used to define another. It seems not.

-Bruce

Back to comp.lang.cobol | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Using one 01 in another 01? "Bruce M. Axtens" <some.one@some.where> - 2025-02-04 03:17 +0000
  Re: Using one 01 in another 01? docdwarf@panix.com () - 2025-02-04 04:20 +0000
    Re: Using one 01 in another 01? Bruce Axtens <snetxa@hotmail.com> - 2025-02-05 21:54 +0800
      Re: Using one 01 in another 01? docdwarf@panix.com () - 2025-02-05 18:51 +0000

csiph-web