summary refs log tree commit diff stats
path: root/tests/reject/t99bott.nim
diff options
context:
space:
mode:
Diffstat (limited to 'tests/reject/t99bott.nim')
-rw-r--r--tests/reject/t99bott.nim28
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/reject/t99bott.nim b/tests/reject/t99bott.nim
new file mode 100644
index 000000000..4dfb11701
--- /dev/null
+++ b/tests/reject/t99bott.nim
@@ -0,0 +1,28 @@
+## 99 Bottles of Beer
+## http://www.99-bottles-of-beer.net/
+## Nimrod version
+
+## Author: Philippe Lhoste <PhiLho(a)GMX.net> http://Phi.Lho.free.fr
+# 2009-11-25
+# Loosely based on my old Lua version... Updated to current official lyrics.
+
+proc GetBottleNumber(n: int): string =
+  var bs: string
+  if n == 0:
+    bs = "No more bottles"
+  elif n == 1:
+    bs = "1 bottle"
+  else:
+    bs = $n & " bottles"
+  return bs & " of beer"
+
+for bn in countdown(99, 1):
+  const cur = GetBottleNumber(bn) #ERROR_MSG constant expression expected
+  echo(cur, " on the wall, ", cur, ".")
+  echo("Take one down and pass it around, ", GetBottleNumber(bn-1), 
+       " on the wall.\n")
+
+echo "No more bottles of beer on the wall, no more bottles of beer."
+echo "Go to the store and buy some more, 99 bottles of beer on the wall."
+
+