summaryrefslogtreecommitdiffstats
path: root/spec/door_spec.rb
blob: 93cd975c1496b4074b8e6ebc51f4cb24aba80240 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#! /usr/bin/env ruby
# -*- coding: UTF-8 -*-
#

require 'spec_helper'
#
describe EvenDoors::Door do
    #
    it "require_p release_p" do
        door = EvenDoors::Door.new 'hell'
        p0 = door.require_p EvenDoors::Particle
        p0.src.should be door
        p1 = door.require_p EvenDoors::Particle
        p1.src.should be door
        (p0===p1).should be_false
        door.release_p p0
        p2 = door.require_p EvenDoors::Particle
        p2.src.should be door
        (p0===p2).should be_true
    end
    #
    it "send_p, send_sys_p, release_p and release of lost particles" do
        class Door0 < EvenDoors::Door
            def receive_p p
                case p.action
                when 'RELEASE'
                    release_p p
                when 'SEND'
                    send_p p
                when 'SEND_SYS'
                    send_sys_p p
                else
                    # lost!!
                end
            end
        end
        f = Fake.new
        d0 = Door0.new 'door0', f
        p0 = EvenDoors::Spin.require_p EvenDoors::Particle
        #
        p0.set_dst! 'SEND'
        p0.split_dst!
        d0.process_p p0
        f.p.should eql p0
        #
        p0.set_dst! 'SEND_SYS'
        p0.split_dst!
        d0.process_p p0
        f.sp.should eql p0
        #
        p0.set_dst! 'RELEASE'
        p0.split_dst!
        d0.process_p p0
        p1 = EvenDoors::Spin.require_p EvenDoors::Particle
        p1.should be p0
        #
        p0.set_dst! 'LOST'
        p0.split_dst!
        d0.process_p p0
        p1 = EvenDoors::Spin.require_p EvenDoors::Particle
        p1.should be p0
        #
        d0.process_sys_p p0
        p1 = EvenDoors::Spin.require_p EvenDoors::Particle
        p1.should be p0
    end
    #
end
#
# EOF