/
githubmirror
/
gawk
Обзор
Документация
Войти
/
githubmirror
/
gawk
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
test/rwarray.awk
33 строки
788 B
Arnold D. Robbins
Add rwarray to extension tests.
25 июн 2012, 23:05
25 июн 2012, 23:05
2d0d82f
Код
Авторство
О чём код?
@load "rwarray" BEGIN { while ((getline word) > 0) dict[word] = word word n = asorti(dict, dictindices) for (i = 1; i <= n; i++) printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "orig.out" close("orig.out"); ret = writea("orig.bin", dict) printf "writea() returned %d, expecting 1\n", ret ret = reada("orig.bin", dict) printf "reada() returned %d, expecting 1\n", ret n = asorti(dict, dictindices) for (i = 1; i <= n; i++) printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "new.out" close("new.out"); ret = system("cmp orig.out new.out") if (ret == 0) print "old and new are equal - GOOD" else print "old and new are not equal - BAD" if (ret == 0 && !("KEEPIT" in ENVIRON)) system("rm -f orig.bin orig.out new.out") }