Mercurial > ljs / file diff

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/pass/demo_account.lua	Fri Nov 19 03:50:04 2010 +0000
@@ -0,0 +1,38 @@
+-- account.lua
+-- from PiL 1, Chapter 16
+
+Account = {balance = 0, name = "base"}
+Account.__index = Account;
+
+function Account:new (o, name)
+  o = o or {name=name}
+  setmetatable(o, self)
+  return o
+end
+
+function Account:deposit (v)
+  self.balance = self.balance + v
+end
+
+function Account:withdraw (v)
+  if v > self.balance then error("insufficient funds on account "..self.name) end
+  self.balance = self.balance - v
+end
+
+function Account:show (title)
+  print(title or "", self.name, self.balance)
+end
+
+a = Account:new(nil,"demo")
+a:show("after creation")
+a:deposit(1000.00)
+a:show("after deposit")
+a:withdraw(100.00)
+a:show("after withdraw")
+
+-- this would raise an error
+--[[
+b = Account:new(nil,"DEMO")
+b:withdraw(100.00)
+--]]
+