From 57d2efaab4a22d663510d9cad2f77106f8c3eee4 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Fri, 13 Sep 2013 13:52:15 +0200
Subject: Add ApplyToObjectField to Object.m

---
 Tests/Object.mt | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Tests')

diff --git a/Tests/Object.mt b/Tests/Object.mt
index 3345fb2..2ac151c 100644
--- a/Tests/Object.mt
+++ b/Tests/Object.mt
@@ -69,3 +69,11 @@ Test[
   ,
   TestID->"JoinObjectField-Exists"
 ]
+
+Test[
+  ApplyToObjectField[NewObject[Obj, {"Key1" -> 1, "Key2" -> 2}], "Key1", g]
+  ,
+  Obj["Key1" -> g[1], "Key2" -> 2]
+  ,
+  TestID->"ApplyToObjectField"
+]
-- 
cgit v1.2.3