zold 0.8 → 0.9

data/test/fake_home.rb

@@ -0,0 +1,59 @@
+# Copyright (c) 2018 Yegor Bugayenko
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the 'Software'), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'tmpdir'
+require_relative '../lib/zold/id'
+require_relative '../lib/zold/wallet'
+require_relative '../lib/zold/key'
+
+# Fake home dir.
+# Author:: Yegor Bugayenko (yegor256@gmail.com)
+# Copyright:: Copyright (c) 2018 Yegor Bugayenko
+# License:: MIT
+class FakeHome
+  def initialize(dir = Dir.pwd)
+    @dir = dir
+  end
+
+  def run
+    Dir.mktmpdir 'test' do |dir|
+      yield FakeHome.new(dir)
+    end
+  end
+
+  def wallets
+    Zold::Wallets.new(@dir)
+  end
+
+  def create_wallet
+    id = Zold::Id.new
+    wallet = Zold::Wallet.new(File.join(@dir, id.to_s))
+    wallet.init(id, Zold::Key.new(file: 'fixtures/id_rsa.pub'))
+    wallet
+  end
+
+  def copies(wallet)
+    Zold::Copies.new(File.join(@dir, "copies/#{wallet.id}"))
+  end
+
+  def remotes
+    Zold::Remotes.new(File.join(@dir, 'secrets/remotes'))
+  end
+end

data/test/node/test_emission.rb

@@ -19,7 +19,7 @@
 # SOFTWARE.
 
 require 'minitest/autorun'
-require 'tmpdir'
+require_relative '../fake_home'
 require_relative '../test__helper'
 require_relative '../../lib/zold/node/emission'
 require_relative '../../lib/zold/amount'
@@ -27,13 +27,11 @@ require_relative '../../lib/zold/amount'
 class EmissionTest < Minitest::Test
   def test_emission
     (1..10).each do |year|
-      Dir.mktmpdir 'test' do |dir|
-        id = Zold::Id.new
-        wallet = Zold::Wallet.new(File.join(dir, id.to_s))
-        wallet.init(id, Zold::Key.new(file: 'fixtures/id_rsa.pub'))
+      FakeHome.new.run do |home|
+        wallet = home.create_wallet
         wallet.add(
           Zold::Txn.new(
-            1, Time.now - 24 * 365 * year,
+            1, Time.now - 60 * 24 * 365 * year,
             Zold::Amount.new(zld: 39.99),
             'NOPREFIX', Zold::Id::ROOT, '-'
           )

data/test/test_amount.rb

@@ -38,8 +38,8 @@ class TestAmount < Minitest::Test
   def test_parses_coins
     amount = Zold::Amount.new(coins: 900_000_000)
     assert(
-      amount.to_s.include?('53.64ZLD'),
-      "#{amount} is not equal to '53.64ZLD'"
+      amount.to_s.include?('0.21ZLD'),
+      "#{amount} is not equal to '0.21ZLD'"
     )
   end
 

data/test/test_patch.rb

@@ -19,7 +19,7 @@
 # SOFTWARE.
 
 require 'minitest/autorun'
-require 'tmpdir'
+require_relative 'fake_home'
 require_relative '../lib/zold/key'
 require_relative '../lib/zold/id'
 require_relative '../lib/zold/wallet'
@@ -32,21 +32,19 @@ require_relative '../lib/zold/patch'
 # License:: MIT
 class TestPatch < Minitest::Test
   def test_builds_patch
-    Dir.mktmpdir 'test' do |dir|
-      id = Zold::Id.new
-      key = Zold::Key.new(file: 'fixtures/id_rsa')
-      first = Zold::Wallet.new(File.join(dir, 'first'))
-      second = Zold::Wallet.new(File.join(dir, 'second'))
-      third = Zold::Wallet.new(File.join(dir, 'third'))
-      first.init(id, Zold::Key.new(file: 'fixtures/id_rsa.pub'))
+    FakeHome.new.run do |home|
+      first = home.create_wallet
+      second = home.create_wallet
+      third = home.create_wallet
       File.write(second.path, File.read(first.path))
+      key = Zold::Key.new(file: 'fixtures/id_rsa')
       first.sub(Zold::Amount.new(zld: 39.0), "NOPREFIX@#{Zold::Id.new}", key)
       first.sub(Zold::Amount.new(zld: 11.0), "NOPREFIX@#{Zold::Id.new}", key)
       first.sub(Zold::Amount.new(zld: 3.0), "NOPREFIX@#{Zold::Id.new}", key)
       second.sub(Zold::Amount.new(zld: 44.0), "NOPREFIX@#{Zold::Id.new}", key)
       File.write(third.path, File.read(first.path))
       t = third.sub(Zold::Amount.new(zld: 10.0), "NOPREFIX@#{Zold::Id.new}", key)
-      third.add(t.inverse(id))
+      third.add(t.inverse(first.id))
       patch = Zold::Patch.new
       patch.start(first)
       patch.join(second)

data/test/test_prefixes.rb

@@ -20,6 +20,7 @@
 
 require 'minitest/autorun'
 require 'tmpdir'
+require_relative 'fake_home'
 require_relative '../lib/zold/key'
 require_relative '../lib/zold/id'
 require_relative '../lib/zold/wallet'
@@ -31,10 +32,8 @@ require_relative '../lib/zold/prefixes'
 # License:: MIT
 class TestPrefixes < Minitest::Test
   def test_creates_and_validates
-    Dir.mktmpdir 'test' do |dir|
-      id = Zold::Id.new
-      wallet = Zold::Wallet.new(File.join(dir, id.to_s))
-      wallet.init(id, Zold::Key.new(file: 'fixtures/id_rsa.pub'))
+    FakeHome.new.run do |home|
+      wallet = home.create_wallet
       prefixes = Zold::Prefixes.new(wallet)
       (8..32).each do |len|
         prefix = prefixes.create(len)

data/test/test_tax.rb

@@ -19,14 +19,16 @@
 # SOFTWARE.
 
 require 'minitest/autorun'
-require 'tmpdir'
 require 'time'
+require_relative 'fake_home'
 require_relative '../lib/zold/id'
 require_relative '../lib/zold/txn'
 require_relative '../lib/zold/wallet'
 require_relative '../lib/zold/tax'
 require_relative '../lib/zold/key'
 require_relative '../lib/zold/amount'
+require_relative '../lib/zold/prefixes'
+require_relative '../lib/zold/score'
 
 # Tax test.
 # Author:: Yegor Bugayenko (yegor256@gmail.com)
@@ -34,10 +36,8 @@ require_relative '../lib/zold/amount'
 # License:: MIT
 class TestTax < Minitest::Test
   def test_calculates_tax_for_one_year
-    Dir.mktmpdir 'test' do |dir|
-      id = Zold::Id.new
-      wallet = Zold::Wallet.new(File.join(dir, id.to_s))
-      wallet.init(id, Zold::Key.new(file: 'fixtures/id_rsa.pub'))
+    FakeHome.new.run do |home|
+      wallet = home.create_wallet
       wallet.add(
         Zold::Txn.new(
           1,
@@ -47,7 +47,50 @@ class TestTax < Minitest::Test
         )
       )
       tax = Zold::Tax.new(wallet)
-      assert_equal(Zold::Amount.new(coins: 61_320), tax.debt)
+      assert(tax.debt > Zold::Amount.new(coins: 16_775_000))
+      assert(tax.debt < Zold::Amount.new(coins: 16_775_999))
+    end
+  end
+
+  def test_checks_existence_of_duplicates
+    FakeHome.new.run do |home|
+      wallet = home.create_wallet
+      wallet.add(
+        Zold::Txn.new(
+          1,
+          Time.now - 24 * 60 * 365,
+          Zold::Amount.new(zld: 19.99),
+          'NOPREFIX', Zold::Id.new, '-'
+        )
+      )
+      target = home.create_wallet
+      invoice = "#{Zold::Prefixes.new(target).create}@#{target.id}"
+      tax = Zold::Tax.new(wallet)
+      score = Zold::Score.new(
+        Time.now, 'localhost', 80, invoice,
+        %w[A B C D E F G H I J K L M N O P Q R S T U V]
+      )
+      tax.pay(Zold::Key.new(file: 'fixtures/id_rsa'), score)
+      assert(
+        tax.exists?(
+          Zold::Txn.new(
+            2,
+            Time.now,
+            Zold::Amount.new(zld: 10.99),
+            'AAPREFIX', target.id, tax.details(score)
+          )
+        )
+      )
+      assert(
+        !tax.exists?(
+          Zold::Txn.new(
+            2,
+            Time.now,
+            Zold::Amount.new(zld: 10.99),
+            'NOPREFIX', target.id, '-'
+          )
+        )
+      )
     end
   end
 end

data/test/test_wallet.rb

@@ -20,6 +20,7 @@
 
 require 'minitest/autorun'
 require 'tmpdir'
+require_relative 'fake_home'
 require_relative '../lib/zold/key'
 require_relative '../lib/zold/id'
 require_relative '../lib/zold/wallet'
@@ -33,8 +34,8 @@ require_relative '../lib/zold/commands/pay'
 # License:: MIT
 class TestWallet < Minitest::Test
   def test_adds_transaction
-    Dir.mktmpdir 'test' do |dir|
-      wallet = wallet(dir)
+    FakeHome.new.run do |home|
+      wallet = home.create_wallet
       amount = Zold::Amount.new(zld: 39.99)
       key = Zold::Key.new(file: 'fixtures/id_rsa')
       wallet.sub(amount, "NOPREFIX@#{Zold::Id.new}", key)
@@ -48,8 +49,8 @@ class TestWallet < Minitest::Test
   end
 
   def test_adds_transaction_and_reads_back
-    Dir.mktmpdir 'test' do |dir|
-      wallet = wallet(dir)
+    FakeHome.new.run do |home|
+      wallet = home.create_wallet
       amount = Zold::Amount.new(zld: 39.99)
       key = Zold::Key.new(file: 'fixtures/id_rsa')
       txn = wallet.sub(amount, "NOPREFIX@#{Zold::Id.new}", key)
@@ -58,25 +59,9 @@ class TestWallet < Minitest::Test
     end
   end
 
-  def test_initializes_it
-    Dir.mktmpdir 'test' do |dir|
-      pkey = Zold::Key.new(file: File.join(Dir.pwd, 'fixtures/id_rsa.pub'))
-      Dir.chdir(dir) do
-        file = File.join(dir, 'source')
-        wallet = Zold::Wallet.new(file)
-        id = Zold::Id.new.to_s
-        wallet.init(id, pkey)
-        assert(
-          wallet.id == id,
-          "#{wallet.id} is not equal to #{id}"
-        )
-      end
-    end
-  end
-
   def test_iterates_income_transactions
-    Dir.mktmpdir 'test' do |dir|
-      wallet = wallet(dir)
+    FakeHome.new.run do |home|
+      wallet = home.create_wallet
       wallet.add(
         Zold::Txn.new(
           1, Time.now, Zold::Amount.new(zld: 39.99),
@@ -94,19 +79,9 @@ class TestWallet < Minitest::Test
         sum += t.amount
       end
       assert(
-        sum == Zold::Amount.new(coins: 921_740_246),
-        "#{sum} is not equal to #{Zold::Amount.new(zld: 54.94)}"
+        sum == Zold::Amount.new(coins: 235_965_503_242),
+        "#{sum} (#{sum.to_i}) is not equal to #{Zold::Amount.new(zld: 54.94)}"
       )
     end
   end
-
-  private
-
-  def wallet(dir)
-    id = Zold::Id.new
-    file = File.join(dir, id.to_s)
-    wallet = Zold::Wallet.new(file)
-    wallet.init(id, Zold::Key.new(file: 'fixtures/id_rsa.pub'))
-    wallet
-  end
 end

data/wp/.gitignore

@@ -1,7 +1,8 @@
 _minted-wp
 wp.aux
 wp.bcf
+wp.bbl
+wp.blg
 wp.log
 wp.out
-wp.pdf
 wp.run.xml

data/wp/Makefile

@@ -1,7 +1,12 @@
 OPTS=-shell-escape -halt-on-error -interaction=errorstopmode -output-directory=.
 
 wp.pdf: wp.tex
-	pdflatex ${OPTS} wp.tex
+	pdflatex ${OPTS} wp.tex > /dev/null
+	biber wp > /dev/null
+	pdflatex ${OPTS} wp.tex > /dev/null
+	grep 'LaTeX Warning' wp.log ; if [ $$? -eq 0 ]; then cat wp.log; exit -1; fi
+	grep 'Overfull ' wp.log ; if [ $$? -eq 0 ]; then cat wp.log; exit -1; fi
+	grep 'Underfull ' wp.log ; if [ $$? -eq 0 ]; then cat wp.log; exit -1; fi
 
 clean:
 	rm -rf wp.log wp.pdf wp.out wp.aux

data/wp/main.bib

@@ -0,0 +1,99 @@
+@article{nakamoto2008,
+  title={Bitcoin: A Peer-to-peer Electronic Cash System},
+  author={Nakamoto, Satoshi},
+  year={2008}
+}
+
+@article{buterin2013,
+  author={Vitalik Buterin},
+  title={Ethereum: A Next-Generation Smart Contract and Decentralized Application Platform},
+  year={2013},
+  url={https://github.com/ethereum/wiki/wiki/White-Paper}
+}
+
+@article{popov2017,
+  title={The Tangle},
+  author={Serguei Popov},
+  year={2017},
+  url={https://iotatoken.com/IOTA_Whitepaper.pdf}
+}
+
+@inproceedings{kaskaloglu2014,
+  title={Near Zero Bitcoin Transaction Fees Cannot Last Forever},
+  author={Kaskaloglu, Kerem},
+  booktitle={The International Conference on Digital Security and Forensics},
+  pages={91--99},
+  year={2014},
+  organization={The Society of Digital Information and Wireless Communication}
+}
+
+@article{van2014,
+  title={Why Bitcoin Has Value},
+  author={Van Alstyne, Marshall},
+  journal={Communications of the ACM},
+  volume={57},
+  number={5},
+  pages={30--32},
+  year={2014},
+  publisher={ACM}
+}
+
+@article{andreessen2014,
+  title={Why Bitcoin Matters},
+  author={Andreessen, Marc},
+  journal={New York Times},
+  volume={21},
+  year={2014}
+}
+
+@article{pilkington2016,
+  title={Blockchain Technology: Principles and Applications},
+  author={Pilkington, Marc},
+  journal={Research Handbook on Digital Transformations},
+  pages={225},
+  year={2016},
+  publisher={Edward Elgar Publishing}
+}
+
+@inproceedings{karame2012,
+  title={Double-spending Fast Payments in Bitcoin},
+  author={Karame, Ghassan O. and Androulaki, Elli and Capkun, Srdjan},
+  booktitle={Proceedings of the 2012 ACM conference on Computer and communications security},
+  pages={906--917},
+  year={2012},
+  organization={ACM}
+}
+
+@inproceedings{everaere2010,
+  title={Double Spending Protection for E-cash Based on Risk Management},
+  author={Everaere, Patricia and Simplot-Ryl, Isabelle and Traor{\'e}, Issa},
+  booktitle={International Conference on Information Security},
+  pages={394--408},
+  year={2010},
+  organization={Springer}
+}
+
+@techreport{boyen2016,
+  title={Blockchain-free Cryptocurrencies: A Framework for Truly Decentralised Fast Transactions},
+  author={Boyen, Xavier and Carr, Christopher and Haines, Thomas},
+  year={2016},
+  institution={Cryptology ePrint Archive, Report 2016/871}
+}
+
+@inproceedings{moser2015,
+  title={Trends, Tips, Tolls: A Longitudinal Study of Bitcoin Transaction Fees},
+  author={M{\"o}ser, Malte and B{\"o}hme, Rainer},
+  booktitle={International Conference on Financial Cryptography and Data Security},
+  pages={19--33},
+  year={2015},
+  organization={Springer}
+}
+
+@article{kiayias2015,
+  title={Speed-Security Tradeoffs in Blockchain Protocols},
+  author={Kiayias, Aggelos and Panagiotakos, Giorgos},
+  journal={IACR Cryptology ePrint Archive},
+  volume={2015},
+  pages={1019},
+  year={2015}
+}