fancy 0.5.0 → 0.6.0

data/tests/class.fy

@@ -548,4 +548,23 @@ FancySpec describe: Class with: {
     b to_s is: "foobar"
     b empty_method is: nil
   }
+
+  class WithConstants {
+    Foo = "foo"
+    Bar = "bar"
+    class Nested
+  }
+
+  it: "returns its nested constants" with: 'constants when: {
+    WithConstants constants =? ["Foo", "Bar", "Nested"] is: true
+  }
+
+  it: "returns a constants value" with: '[] when: {
+    WithConstants["Foo"] is: "foo"
+    WithConstants["Foo"] is: WithConstants Foo
+    WithConstants["Bar"] is: "bar"
+    WithConstants["Bar"] is: WithConstants Bar
+    WithConstants["Nested"] is_a?: Class . is: true
+    WithConstants["Nested"] is: WithConstants Nested
+  }
 }

data/tests/enumerable.fy

@@ -1,4 +1,4 @@
-FancySpec describe: FancyEnumerable with: {
+FancySpec describe: Fancy Enumerable with: {
   it: "selects the right element based on a comparison Block and an optional selection Block" with: 'superior_by:taking: when: {
     [1,2,3,4,5] superior_by: '> . is: 5
     [1,2,3,4,5] superior_by: '< . is: 1

data/tests/enumerator.fy

@@ -1,12 +1,12 @@
-FancySpec describe: FancyEnumerator with: {
+FancySpec describe: Fancy Enumerator with: {
   it: "iterates with 'next" with: 'new: when: {
-    enum = FancyEnumerator new: (42..50)
+    enum = Fancy Enumerator new: (42..50)
     enum next is: 42
     enum next is: 43
   }
 
   it: "peeks to find next element" with: 'peek when: {
-    enum = FancyEnumerator new: (42..50)
+    enum = Fancy Enumerator new: (42..50)
     enum peek is: 42
     enum peek is: 42
     enum next is: 42
@@ -16,12 +16,12 @@ FancySpec describe: FancyEnumerator with: {
     enum next is: 43
   }
 
-  it: "turns an object with 'each: into an FancyEnumerator" with: 'to_enum when: {
+  it: "turns an object with 'each: into an Fancy Enumerator" with: 'to_enum when: {
     enum = (42..45) to_enum
     enum next is: 42
   }
 
-  it: "turns an object with given method into an FancyEnumerator" with: 'to_enum: when: {
+  it: "turns an object with given method into an Fancy Enumerator" with: 'to_enum: when: {
     o = {}
     def o iter: block {
       1 upto: 10 do: block

data/tests/file.fy

@@ -5,6 +5,34 @@ FancySpec describe: File with: {
     file close
   }
 
+  it: "reads a file correctly" with: 'read:with: when: {
+    lines = File read: "README.md" . lines
+    idx = 0
+
+    File read: "README.md" with: |f| {
+      until: { f eof? } do: {
+        lines[idx] is: (f readline chomp)
+        idx = idx + 1
+      }
+    }
+  }
+
+  it: "writes a file correctly" with: 'write:with: when: {
+    dirname = "tmp"
+    filename = "#{dirname}/write_test.txt"
+
+    Directory create!: dirname
+    File write: filename with: |f| {
+      10 times: |i| {
+        f println: i
+      }
+    }
+
+    File read: filename . lines is: $ ["0","1","2","3","4","5","6","7","8","9"]
+    File delete: filename
+    Directory delete: dirname
+  }
+
   it: "is open after opening it and closed after closing" with: 'close when: {
     file = File open: "README.md" modes: ['read]
     file open? is: true

data/tests/fixnum.fy

@@ -53,26 +53,6 @@ FancySpec describe: Fixnum with: {
     2 even? is: true
   }
 
-  it: "returns an array from 0 upto 10" with: 'upto: when: {
-    0 upto: 10 . is: [0,1,2,3,4,5,6,7,8,9,10]
-  }
-
-  it: "iterates from 1 upto 10" with: 'upto:do: when: {
-    sum = 0
-    1 upto: 10 do: |n| { sum = sum + n }
-    sum is: 55
-  }
-
-  it: "returns an array from 10 downto 0" with: 'downto: when: {
-    10 downto: 0 . is: [10,9,8,7,6,5,4,3,2,1,0]
-  }
-
-  it: "iterates from 10 downto 1" with: 'downto:do: when: {
-    sum = 0
-    10 downto: 1 do: |n| { sum = sum + n }
-    sum is: 55
-  }
-
   it: "calculates the given power of itself" with: '** when: {
     2 ** 3 is: 8
     2 ** 0 is: 1
@@ -84,22 +64,6 @@ FancySpec describe: Fixnum with: {
     }
   }
 
-  it: "is the square of self" with: 'squared when: {
-    5 squared is: 25
-    10 squared is: 100
-    20 upto: 50 do: |i| {
-      i squared is: (i * i)
-    }
-  }
-
-  it: "is the double value of self" with: 'doubled when: {
-    5 doubled is: 10
-    10 doubled is: 20
-    20 upto: 50 do: |i| {
-      i doubled is: (i + i)
-    }
-  }
-
   it: "is the same when using underscores within the literal" when: {
     50000 is: 50_000
     100_000 is: 100000
@@ -153,18 +117,4 @@ FancySpec describe: Fixnum with: {
     times_called is: 10
     sum is: ((10..19) sum)
   }
-
-  it: "returns the maximum" with: 'max: when: {
-    0 max: 0 . is: 0
-    1 max: 2 . is: 2
-    2 max: 1 . is: 2
-    -2 max: -3 . is: -2
-  }
-
-  it: "returns the minimum" with: 'min: when: {
-    0 min: 0 . is: 0
-    -1 min: 0 . is: -1
-    -2 min: -3 . is: -3
-    2 min: 1 . is: 1
-  }
 }

data/tests/future.fy

@@ -16,15 +16,15 @@ FancySpec describe: FutureSend with: {
     a is: nil
   }
 
-  it: "composes Futures to create execution pipelines" with: '&& when: {
-    def some_computation: num {
-      num upto: (num ** num ** num)
-    }
+  # it: "composes Futures to create execution pipelines" with: '&& when: {
+  #   def some_computation: num {
+  #     num upto: (num ** num ** num)
+  #   }
 
-    f = self @ some_computation: 2 && @{select: 'even?} && @{size}
-    f is_a?: FutureSend . is: true
-    f value is_a?: Fixnum . is: true
-  }
+  #   f = self @ some_computation: 2 && @{select: 'even?} && @{size}
+  #   f is_a?: FutureSend . is: true
+  #   f value is_a?: Fixnum . is: true
+  # }
 
   it: "accesses the same future from multiple threads and blocks them until the value is computed" when: {
     def another_method {
@@ -49,23 +49,8 @@ FancySpec describe: FutureSend with: {
       "error!" raise!
     }
     f = self @ a_failing_method
-    f failed? is: false
+    f value # wait for completion
     f failure message is: "error!"
     f failed? is: true
   }
-}
-
-FancySpec describe: FutureCollection with: {
-  it: "executes a block for each future in the collection when it's ready" with: 'each: when: {
-    futures = 0 upto: 10 . map: |i| {
-      i ** i @ ** i
-    }
-
-    fc = FutureCollection new: futures
-    fc each: |val| {
-      val is_a?: Integer . is: true
-    }
-
-    fc await_all
-  }
 }

data/tests/hash.fy

@@ -35,6 +35,13 @@ FancySpec describe: Hash with: {
     hash at: 'foo . is: 'foobarbaz
   }
 
+  it: "calls the block if it can't find the key" with: 'at:else: when: {
+    hash = <['foo => "bar", 'bar => nil]>
+    hash at: 'foo else: { "hello" } . is: "bar"
+    hash at: 'bar else: { "hello" } . is: nil
+    hash at: 'foo1 else: { "hello" } . is: "hello"
+  }
+
   it: "returns all keys" with: 'keys when: {
     hash = <['foo => "bar", 'bar => "baz", 'foobar => 112.21]>
     hash keys is =? ['foo, 'bar, 'foobar]
@@ -115,4 +122,32 @@ FancySpec describe: Hash with: {
     h includes?: "bar" . is: false
     h includes?: nil . is: false
   }
+
+  it: "fetches a value or calls a given alternative block" for: 'fetch:else: when: {
+    <['foo => 'bar]> fetch: 'foo else: { 42 } . is: 'bar
+    <['foo => 'bar]> fetch: 'unknown else: { 42 } . is: 42
+    <['nil => nil]> fetch: 'nil else: { 'not_found } . is: nil
+    <['nila => nil]> fetch: 'nil else: { 'not_found } . is: 'not_found
+  }
+
+  it: "returns an object with slots based on key-value pairs in Hash" for: 'to_object when: {
+    <[]> to_object slots empty? is: true
+    <['name => "Chris"]> to_object tap: @{
+      slots is: ['name]
+      name is: "Chris"
+      name: "New Name"
+      name is: "New Name"
+    }
+    <['a => "hello", 'b => "world"]> to_object tap: @{
+      slots size is: 2
+      slots includes?: 'a . is: true
+      slots includes?: 'b . is: true
+      a is: "hello"
+      b is: "world"
+      a: "world"
+      b: "hello"
+      a is: "world"
+      b is: "hello"
+    }
+  }
 }

data/tests/html.fy

@@ -0,0 +1,33 @@
+require: "../lib/html"
+
+FancySpec describe: HTML with: {
+  it: "generates an empty html string when initialized" when: {
+    HTML new to_s is: ""
+  }
+
+  it: "generates a simple html string" when: {
+    h = HTML new
+    h html: {
+      h head: {
+        h title: "Hello"
+      }
+      h body: {
+        h h1: "Hello, World!"
+      }
+    }
+
+    h to_s is: \
+"""<html>
+  <head>
+    <title>
+      Hello
+    </title>
+  </head>
+  <body>
+    <h1>
+      Hello, World!
+    </h1>
+  </body>
+</html>"""
+  }
+}

data/tests/kvo.fy

@@ -0,0 +1,101 @@
+require: "lib/kvo"
+
+class Person {
+  include: KVO
+  read_write_slots: ('name, 'age, 'city, 'friends)
+}
+
+FancySpec describe: KVO with: {
+  before_each: {
+    @p = Person new tap: @{
+      name: "Tom"
+      age: 42
+      city: "Berlin"
+      friends: []
+    }
+  }
+
+  it: "observes slot changes as expected" when: {
+    name_changed = false
+    new_name = nil
+    old_name = nil
+    @p observe: 'name with: |new old| {
+      new_name = new
+      old_name = old
+      name_changed = true
+    }
+
+    city_changed = false
+    new_city = nil
+    old_city = nil
+    @p observe: 'city with: |new old| {
+      new_city = new
+      old_city = old
+      city_changed = true
+    }
+
+    @p name: "Hello"
+    name_changed is: true
+    new_name is: "Hello"
+    old_name is: "Tom"
+    @p name is: new_name
+
+    @p age: 24
+    @p age is: 24
+
+    @p city: "Hamburg"
+    city_changed is: true
+    new_city is: "Hamburg"
+    old_city is: "Berlin"
+    @p city is: new_city
+  }
+
+  it: "observes insertions to collections correctly" when: {
+    friend_added = false
+    new_friend = nil
+    @p observe_insertion: 'friends with: |f| {
+      friend_added = true
+      new_friend = f
+    }
+
+    @p friends << "Jack"
+    friend_added is: true
+    new_friend is: "Jack"
+    @p friends first is: "Jack"
+
+    @p friends << "Jimmy"
+    new_friend is: "Jimmy"
+    @p friends second is: "Jimmy"
+  }
+
+  it: "observes removals from collections correctly" when: {
+    @p friends << "Jack"
+    @p friends << "Jimmy"
+
+    @p friends is: ["Jack", "Jimmy"]
+
+    friend_removed = false
+    removed_friend = nil
+    @p observe_removal: 'friends with: |f| {
+      friend_removed = true
+      removed_friend = f
+    }
+
+    @p friends remove: "Jack"
+    friend_removed is: true
+    removed_friend is: "Jack"
+    @p friends remove: "Jimmy"
+    removed_friend is: "Jimmy"
+
+    @p friends << "Jack"
+    @p friends << "Jimmy"
+    @p friends remove_at: 0
+    removed_friend is: "Jack"
+    @p friends first is: "Jimmy"
+
+    @p friends << "Jack"
+    @p friends << "Tom"
+    @p friends remove_at: (0,1)
+    @p friends is: ["Tom"]
+  }
+}

data/tests/number.fy

@@ -0,0 +1,75 @@
+FancySpec describe: Number with: {
+  it: "returns an array from 0 upto 10" with: 'upto: when: {
+    0 upto: 10 . is: [0,1,2,3,4,5,6,7,8,9,10]
+  }
+
+  it: "iterates from 1 upto 10" with: 'upto:do: when: {
+    sum = 0
+    1 upto: 10 do: |n| { sum = sum + n }
+    sum is: 55
+  }
+
+  it: "iterates from 1 upto 20 in steps of 4" when: {
+    sum = 0
+    1 upto: 20 in_steps_of: 4 do: |n| {
+      sum = sum + n
+    }
+    sum is: $ [1,5,9,13,17] sum
+  }
+
+  it: "returns an array from 10 downto 0" with: 'downto: when: {
+    10 downto: 0 . is: [10,9,8,7,6,5,4,3,2,1,0]
+  }
+
+  it: "iterates from 10 downto 1" with: 'downto:do: when: {
+    sum = 0
+    10 downto: 1 do: |n| { sum = sum + n }
+    sum is: 55
+  }
+
+  it: "iterates from 20 downto 1 in steps of 4" when: {
+    sum = 0
+    20 downto: 1 in_steps_of: 4 do: |n| {
+      sum = sum + n
+    }
+    sum is: $ [0,4,8,12,16,20] sum
+  }
+
+  it: "is the square of self" with: 'squared when: {
+    5 squared is: 25
+    10 squared is: 100
+    20 upto: 50 do: |i| {
+      i squared is: (i * i)
+    }
+  }
+
+  it: "returns the cubed value of self" with: 'cubed when: {
+    5 cubed is: 125
+    10 cubed is: 1000
+    20 upto: 50 do: |i| {
+      i cubed is: (i * i * i)
+    }
+  }
+
+  it: "is the double value of self" with: 'doubled when: {
+    5 doubled is: 10
+    10 doubled is: 20
+    20 upto: 50 do: |i| {
+      i doubled is: (i + i)
+    }
+  }
+
+  it: "returns the maximum" with: 'max: when: {
+    0 max: 0 . is: 0
+    1 max: 2 . is: 2
+    2 max: 1 . is: 2
+    -2 max: -3 . is: -2
+  }
+
+  it: "returns the minimum" with: 'min: when: {
+    0 min: 0 . is: 0
+    -1 min: 0 . is: -1
+    -2 min: -3 . is: -3
+    2 min: 1 . is: 1
+  }
+}