Mercurial > ljs / changeset

--- a/tests/fail/demo_account.lua	Fri Nov 19 03:48:41 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,38 +0,0 @@
--- account.lua
--- from PiL 1, Chapter 16
-
-Account = {balance = 0}
-
-function Account:new (o, name)
-  o = o or {name=name}
-  setmetatable(o, self)
-  self.__index = 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)
---]]
-

--- /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)
+--]]
+