fix neg float cmp

Author: Roger-luo

src/tools.jl

@@ -1,6 +1,6 @@
 module Tools
 
-export kw_qreg, kw_creg, kw_gate, qasm_id, qasm_int, qasm_f64, qasm_str, cmp_ast
+export kw_qreg, kw_creg, kw_gate, qasm_id, qasm_int, qasm_f64, qasm_str, cmp_ast, cmp_exp
 
 using ..Types
 using MLStyle
@@ -62,7 +62,15 @@ function cmp_exp(lhs::Tuple, rhs::Tuple)
     return all(map(cmp_ast, lhs, rhs))
 end
 
-cmp_exp(lhs, rhs) = cmp_ast(lhs, rhs)
+function cmp_exp(lhs, rhs)
+    @switch (lhs, rhs) begin
+        @case (Neg(a::Token{:float64}), b::Token{:float64})
+            startswith(b.str, '-') && a.str == b.str[2:end]
+        @case _
+            cmp_ast(lhs, rhs)
+    end
+end
+
 cmp_ast(lhs, rhs) = lhs == rhs
 
 @deprecate issimilar(x, y) cmp_ast(x, y)

test/runtests.jl

@@ -5,6 +5,10 @@ using MLStyle
 using RBNF: Token
 using Test
 
+@testset "cmp_exp" begin
+    @test cmp_exp(Neg(qasm_f64(0.2)), qasm_f64(-0.2))
+end
+
 @testset "conversion" begin
     @test convert(String, Token{:str}("\"abc\"")) == "abc"
     @test convert(Symbol, Token{:id}("abc")) === :abc