diff options
| author | Peter Drahoš <drahosp@gmail.com> | 2010-10-01 03:22:32 +0200 |
|---|---|---|
| committer | Peter Drahoš <drahosp@gmail.com> | 2010-10-01 03:22:32 +0200 |
| commit | 89d9c98af1ac352ba4d49d660e61b0853d6e1a86 (patch) | |
| tree | 15c56d2ce66b4ab147171c0f674cdb4a435ff13f /tests/atomic.lua | |
| download | lanes-89d9c98af1ac352ba4d49d660e61b0853d6e1a86.tar.gz lanes-89d9c98af1ac352ba4d49d660e61b0853d6e1a86.tar.bz2 lanes-89d9c98af1ac352ba4d49d660e61b0853d6e1a86.zip | |
Import to git
Diffstat (limited to 'tests/atomic.lua')
| -rw-r--r-- | tests/atomic.lua | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/atomic.lua b/tests/atomic.lua new file mode 100644 index 0000000..a027453 --- /dev/null +++ b/tests/atomic.lua | |||
| @@ -0,0 +1,18 @@ | |||
| 1 | -- | ||
| 2 | -- ATOMIC.LUA | ||
| 3 | -- | ||
| 4 | -- Test program for Lua Lanes | ||
| 5 | -- | ||
| 6 | |||
| 7 | require "lanes" | ||
| 8 | |||
| 9 | local linda= lanes.linda() | ||
| 10 | local key= "$" | ||
| 11 | |||
| 12 | local f= lanes.genatomic( linda, key, 5 ) | ||
| 13 | |||
| 14 | local v | ||
| 15 | v= f(); print(v); assert(v==6) | ||
| 16 | v= f(-0.5); print(v); assert(v==5.5) | ||
| 17 | |||
| 18 | v= f(-10); print(v); assert(v==-4.5) | ||