| 1 | | use PennMUSH; |
|---|
| 2 | | use MUSHConnection; |
|---|
| 3 | | use TestHarness; |
|---|
| 4 | | |
|---|
| 5 | | $mush = PennMUSH->new(); |
|---|
| 6 | | $god = $mush->loginGod(); |
|---|
| 7 | | |
|---|
| 8 | | test('digest.1', $god, 'think digest(md2,foo)', 'd11f8ce29210b4b50c5e67533b699d02'); |
|---|
| 9 | | test('digest.2', $god, 'think digest(md5,foo)', 'acbd18db4cc2f85cedef654fccc4a4d8'); |
|---|
| 10 | | test('digest.3', $god, 'think digest(sha,foo)', '752678a483e77799a3651face01d064f9ca86779'); |
|---|
| 11 | | test('digest.4', $god, 'think digest(sha1,foo)', '0beec7b5ea3f0fdbc95d0dd47f3c5bc275da8a33'); |
|---|
| 12 | | test('digest.5', $god, 'think digest(dss1,foo)', '0beec7b5ea3f0fdbc95d0dd47f3c5bc275da8a33'); |
|---|
| 13 | | test('digest.6', $god, 'think digest(ripemd160,foo)', '42cfa211018ea492fdee45ac637b7972a0ad6873'); |
|---|
| 14 | | test('digest.7', $god, 'think digest(md4,foo)', '0ac6700c491d70fb8650940b1ca1e4b2'); |
|---|
| | 1 | login mortal |
|---|
| | 2 | run tests: |
|---|
| | 3 | test('digest.1', $mortal, 'think digest(md2,foo)', 'd11f8ce29210b4b50c5e67533b699d02'); |
|---|
| | 4 | test('digest.2', $mortal, 'think digest(md5,foo)', 'acbd18db4cc2f85cedef654fccc4a4d8'); |
|---|
| | 5 | test('digest.3', $mortal, 'think digest(sha,foo)', '752678a483e77799a3651face01d064f9ca86779'); |
|---|
| | 6 | test('digest.4', $mortal, 'think digest(sha1,foo)', '0beec7b5ea3f0fdbc95d0dd47f3c5bc275da8a33'); |
|---|
| | 7 | test('digest.5', $mortal, 'think digest(dss1,foo)', '0beec7b5ea3f0fdbc95d0dd47f3c5bc275da8a33'); |
|---|
| | 8 | test('digest.6', $mortal, 'think digest(ripemd160,foo)', '42cfa211018ea492fdee45ac637b7972a0ad6873'); |
|---|
| | 9 | test('digest.7', $mortal, 'think digest(md4,foo)', '0ac6700c491d70fb8650940b1ca1e4b2'); |
|---|
| 17 | | test('base64.1', $god, 'think encode64(test string)', 'dGVzdCBzdHJpbmc='); |
|---|
| 18 | | test("base64.2", $god, "think decode64(encode64(this is another fine mess you've gotten us into))", "this is another fine mess you've gotten us into"); |
|---|
| | 12 | test('base64.1', $mortal, 'think encode64(test string)', 'dGVzdCBzdHJpbmc='); |
|---|
| | 13 | test("base64.2", $mortal, "think decode64(encode64(this is another fine mess you've gotten us into))", "this is another fine mess you've gotten us into"); |
|---|