X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/02c86046c36abd57fda163bee4dd2105eb4bfacc..501244d422766cedb4c44f6a5ea5196586e3eb21:/examples/c/platform-properties/platform-properties.tesh

diff --git a/examples/c/platform-properties/platform-properties.tesh b/examples/c/platform-properties/platform-properties.tesh
new file mode 100644
index 0000000000..7c4c31c4a2
--- /dev/null
+++ b/examples/c/platform-properties/platform-properties.tesh
@@ -0,0 +1,46 @@
+#!/usr/bin/env tesh
+
+p Testing an application with properties in the XML for Hosts, Links and Processes
+
+! output sort 19
+$ ${bindir:=.}/platform-properties-c ${platfdir}/prop.xml platform-properties_d.xml  "--log=root.fmt:[%10.6r]%e(%i:%P@%h)%e%m%n"
+> [  0.000000] (0:maestro@) There are 7 hosts in the environment
+> [  0.000000] (0:maestro@) Host 'host1' runs at 1000000000 flops/s
+> [  0.000000] (0:maestro@) Host 'host2' runs at 1000000000 flops/s
+> [  0.000000] (0:maestro@) Host 'node-0.simgrid.org' runs at 1000000000 flops/s
+> [  0.000000] (0:maestro@) Host 'node-1.simgrid.org' runs at 1000000000 flops/s
+> [  0.000000] (0:maestro@) Host 'node-2.simgrid.org' runs at 1000000000 flops/s
+> [  0.000000] (0:maestro@) Host 'node-3.simgrid.org' runs at 1000000000 flops/s
+> [  0.000000] (0:maestro@) Host 'node-4.simgrid.org' runs at 1000000000 flops/s
+> [  0.000000] (2:bob@host1) == Print the properties of the AS
+> [  0.000000] (2:bob@host1)    Process property: filename -> prop.xml
+> [  0.000000] (2:bob@host1)    Process property: date -> 31-08-12
+> [  0.000000] (2:bob@host1)    Process property: author -> pnavarro
+> [  0.000000] (2:bob@host1) == Print the properties of the process
+> [  0.000000] (2:bob@host1)    Process property: SomeProp -> SomeValue
+> [  0.000000] (2:bob@host1) == Try to get a process property that does not exist
+> [  0.000000] (1:alice@host1) == Print the properties of the host 'host1'
+> [  0.000000] (1:alice@host1)   Host property: 'mem' -> '4'
+> [  0.000000] (1:alice@host1)   Host property: 'Hdd' -> '180'
+> [  0.000000] (1:alice@host1) == Try to get a host property that does not exist
+> [  0.000000] (1:alice@host1) == Try to get a host property that does exist
+> [  0.000000] (1:alice@host1)    Property: Hdd old value: 180
+> [  0.000000] (1:alice@host1) == Trying to modify a host property
+> [  0.000000] (1:alice@host1)    Property: Hdd old value: 250
+> [  1.000000] (3:carole@host2) == Print the properties of the host 'host1'
+> [  1.000000] (3:carole@host2)   Host property: 'mem' -> '4'
+> [  1.000000] (3:carole@host2)   Host property: 'Hdd' -> '180'
+> [  1.000000] (3:carole@host2) == Try to get a host property that does not exist
+> [  1.000000] (3:carole@host2) == Try to get a host property that does exist
+> [  1.000000] (3:carole@host2)    Property: Hdd old value: 180
+> [  1.000000] (3:carole@host2) == Trying to modify a host property
+> [  1.000000] (3:carole@host2)    Property: Hdd old value: 250
+> [  2.000000] (4:david@host2) == Print the properties of the host 'node-0.simgrid.org'
+> [  2.000000] (4:david@host2)   Host property: 'mem' -> '42'
+> [  2.000000] (4:david@host2)   Host property: 'bla' -> 'acme cluster'
+> [  2.000000] (4:david@host2)   Host property: 'Hdd' -> '180'
+> [  2.000000] (4:david@host2) == Try to get a host property that does not exist
+> [  2.000000] (4:david@host2) == Try to get a host property that does exist
+> [  2.000000] (4:david@host2)    Property: Hdd old value: 180
+> [  2.000000] (4:david@host2) == Trying to modify a host property
+> [  2.000000] (4:david@host2)    Property: Hdd old value: 250