crm_setup() {
	$CRM_NO_REG options check-frequency on-verify
	$CRM_NO_REG options check-mode relaxed
}
crm_mksample() {
	cp empty.xml sample.xml
	CIB_file=sample.xml $CRM_NO_REG<<EOF
configure
erase
erase nodes
node node1
primitive p0 ocf:pacemaker:Dummy
primitive p1 ocf:pacemaker:Dummy
primitive p2 ocf:heartbeat:Delay \
	params startdelay=2 mondelay=2 stopdelay=2
primitive p3 ocf:pacemaker:Dummy
primitive st stonith:null params hostlist=node1
clone c1 p1
ms m1 p2
property default-action-timeout=60s
commit
end
EOF
}
crm_show() {
	CIB_file=sample.xml $CRM<<EOF
configure
_regtest on
erase
erase nodes
`cat`
show
commit
EOF
}
crm_showxml() {
	CIB_file=sample.xml $CRM<<EOF
configure
_regtest on
erase
erase nodes
`cat`
show xml
commit
EOF
}
crm_session() {
	CIB_file=sample.xml $CRM <<EOF
`cat`
EOF
}
crm_single() {
	CIB_file=sample.xml $CRM $*
}
crm_showobj() {
	CIB_file=sample.xml $CRM<<EOF
configure
_regtest on
show xml $1
EOF
}