test modify

Author: rafaqz

test/test_queries.jl

@@ -26,11 +26,23 @@ println("set")
     Accessors.set(obj, lens, vals) == 
     (7, (a=1.0, b=2.0f0), ("3", 4, 5.0), (x=2.0,), [1])
 
-# using ProfileView
-# @profview for i in 1:1000000 Accessors.set(obj, lens, vals) end
+using ProfileView
+@profview for i in 1:1000000 Accessors.set(obj, lens, vals) end
 
 println("unstable set")
 unstable_lens = Accessors.Query(select=x -> x isa Float64 && x > 2, descend=x -> x isa NamedTuple)
 @btime Accessors.set($obj, $unstable_lens, $vals)
 # slow_unstable_lens = Accessors.Query(; select=x -> x isa Number && x > 4, optic=Properties())
 # @btime Accessors.set($obj, $slow_unstable_lens, $vals))
+
+# Somehow modify compiles away almost completely
+@btime modify(x -> 10x, $obj, $lens)
+@test modify(x -> 10x, obj, lens) == (7, (a=170.0, b=2.0f0), ("3", 4, 5.0), (x=60.0,), [1])
+using ProfileView
+@profview for i in 1:1000000 modify(x -> 10x, obj, lens) end
+
+
+obj = (1,2,3,4,5,6);
+
+@macroexpand 
+@set obj |> Properties() |> If(iseven)