internal void Run(string[] args)
{
// Should you want to decompose to running single tasks you can just create a workflow containing nodes with no parents or
// children. The system works out where to start by identifying nodes with no parents, and assuming they're immediately
// runnable. The hosting workflow then gives you a handle by which you can treat the individual tasks as a related set.
var t1 = new TaskName("TestNode1");
var t2 = new TaskName("TestNode2");
var t3 = new TaskName("TestNode3");
var t4 = new TaskName("TestNode4");
var t5 = new TaskName("TestNode5");
var t6 = new TaskName("TestNode6");
var type1 = new TaskType("testTaskType");
var workflow = new Common.Workflow(new WorkflowName("TestWorkflow"));
workflow.AddTask(t1, new Payload("Node1"), type1, SimplePriority, EmptyTaskList, new[] { t2 });
workflow.AddTask(t2, new Payload("Node2"), type1, SimplePriority, EmptyTaskList, new[] { t3, t4, t5, t6 });
workflow.AddTask(t3, new Payload("Node3"), type1, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t4, new Payload("Node4"), type1, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t5, new Payload("Node5"), type1, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t6, new Payload("Node6"), type1, SimplePriority, new[] { t2 }, EmptyTaskList);
// A client will start acting on tasks immediately. May not want that to
// be behaviour -- so might want to have an independent submit-only client. TaskHandler only needed for
// submission. TaskHandler needs to be stateless, taking configuration for a specific task on a run call? No, that's
// true per-task, but agiven ITaskHandler instance might be configured once wth e.g. compute resource connection details
var th = new TaskHandler();
var wh = new WorkflowHandler();
var complete = new ManualResetEvent(false);
var failed = new ManualResetEvent(false);
wh.WorkflowComplete += (s, w) => { Console.WriteLine("workflow complete: " + w); complete.Set(); };
wh.WorkflowFailed += (s, w) => { Console.WriteLine("workflow failed: " + w); failed.Set(); };
EventHandler<Exception> eh = (s, e) => { };
var wm = new WorkflowManagement(ConnectionMultiplexer.Connect("localhost"), th, wh, new WorkflowManagementId("sampleApp"), eh);
wm.ClearBacklog();
// Pushing a workflow causes it to be executed
var id = wm.PushWorkflow(workflow);
Console.WriteLine("Workflow pushed");
WaitHandle.WaitAny(new[] { failed, complete });
wm.CleanUp(id.ToString());
Console.ReadLine();
}
public void CanCleanUpAfterAWorkflow()
{
var db = _mux.GetDatabase();
db.ScriptEvaluate("print(\"CanCleanUpAfterAWorkflow\")");
db.ScriptEvaluate("redis.call(\"flushdb\")");
var th = new TestTaskHandler();
var complete = new ManualResetEvent(false);
var wh = new WorkflowHandler();
wh.WorkflowComplete += (s, w) => { complete.Set(); };
using (var wm = new WorkflowManagement(_mux, th, wh, new WorkflowManagementId("test"), null, new Lua()))
{
var t1 = new TaskName("TestNode1");
var t2 = new TaskName("TestNode2");
var t3 = new TaskName("TestNode3");
var t4 = new TaskName("TestNode4");
var t5 = new TaskName("TestNode5");
var t6 = new TaskName("TestNode6");
var workflow = new Workflow(new WorkflowName("TestWorkflow"));
workflow.AddTask(t1, new Payload("Node1"), NoType, SimplePriority, EmptyTaskList, new[] { t2 });
workflow.AddTask(t2, new Payload("Node2"), NoType, SimplePriority, new[] { t1 }, new[] { t3, t4, t5, t6 });
workflow.AddTask(t3, new Payload("Node3"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t4, new Payload("Node4"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t5, new Payload("Node5"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t6, new Payload("Node6"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
var workflowId = wm.PushWorkflow(workflow);
var workflowCompleted = complete.WaitOne(2000); // machine-performance dependent, but 2 seconds is a long time
Assert.IsTrue(workflowCompleted);
var info = wm.FetchWorkflowInformation(workflowId.ToString());
Assert.AreEqual("1", info.Id);
Assert.AreEqual(6, info.Tasks.Count);
wm.CleanUp(workflowId.ToString());
db = _mux.GetDatabase();
for (var t = 0; t < 6; t++)
{
Assert.IsFalse(db.KeyExists("task:" + t));
Assert.IsFalse(db.KeyExists("parents-" + t));
Assert.IsFalse(db.KeyExists("children-" + t));
Assert.IsFalse(db.SetContains("tasks", t));
Assert.IsFalse(db.SetContains("submitted", t));
Assert.IsFalse(db.SetContains("complete", t));
Assert.IsFalse(db.SetContains("failed", t));
Assert.IsFalse(db.SetContains("abandoned", t));
Assert.AreEqual(0, db.ListRemove("running", t));
}
Assert.AreEqual(0, db.ListRemove("workflowComplete", "1"));
Assert.AreEqual(0, db.ListRemove("workflowFailed", "1"));
Assert.IsFalse(db.KeyExists("workflow-tasks-1"));
Assert.IsFalse(db.KeyExists("workflow-remaining-1"));
Assert.IsFalse(db.SetContains("workflows", "1"));
Assert.IsFalse(db.KeyExists("submitted:1"));
Assert.IsFalse(db.KeyExists("running:1"));
}
}
public void CanCleanUpAfterAFailedWorkflow()
{
var db = _mux.GetDatabase();
db.ScriptEvaluate("print(\"CanCleanUpAfterAFailedWorkflow\")");
db.ScriptEvaluate("redis.call(\"flushdb\")");
var th = new ErroringTestWithLongRunnerTaskHandler("Node4", "Node3");
var complete = new ManualResetEvent(false);
var failed = new ManualResetEvent(false);
var exception = new ManualResetEvent(false);
var events = new List<string>();
var wh = new WorkflowHandler();
wh.WorkflowComplete += (s, w) => { events.Add("complete"); complete.Set(); };
wh.WorkflowFailed += (s, w) => { events.Add("failed"); failed.Set(); };
EventHandler<Exception> eh = (s, e) => { events.Add(e.Message); exception.Set(); };
using (var wm = new WorkflowManagement(_mux, th, wh, new WorkflowManagementId("test"), eh))
{
var t1 = new TaskName("TestNode1");
var t2 = new TaskName("TestNode2");
var t3 = new TaskName("TestNode3");
var t4 = new TaskName("TestNode4");
var workflow = new Workflow(new WorkflowName("TestWorkflow"));
workflow.AddTask(t1, new Payload("Node1"), NoType, SimplePriority, EmptyTaskList, new [] { t2 });
workflow.AddTask(t2, new Payload("Node2"), NoType, SimplePriority, new [] { t1 }, new [] { t3, t4 });
workflow.AddTask(t3, new Payload("Node3"), NoType, SimplePriority, new [] { t2 }, EmptyTaskList);
workflow.AddTask(t4, new Payload("Node4"), NoType, SimplePriority, new [] { t2 }, EmptyTaskList);
var workflowId = wm.PushWorkflow(workflow);
var result = WaitHandle.WaitAny(new[] { exception, failed, complete }, 2000);
if(result == 0) throw new Exception("Failed in workflow operation"); // in a real app, handler could add exception to a list to process
// In principle this is a failed workflow, as one of the tasks will fail
// However, if all tasks get started, then the succeeding leaf node finishes first, this will be marked successful
// Is a workflow considered complete when all tasks have started, or when all tasks have finished?
// CHoose latter.
Console.WriteLine("TaskHandler events"); foreach (var ev in th.Events) Console.WriteLine("TH event: " + ev);
Console.WriteLine("WM events"); foreach (var ev in events) Console.WriteLine("Event: " + ev);
Assert.AreEqual(1, result);
wm.CleanUp(workflowId.ToString());
}
// Should leave highwatermark id keys alone
db = _mux.GetDatabase();
for (var t = 0; t < 4; t++)
{
Assert.IsFalse(db.KeyExists("task:" + t));
Assert.IsFalse(db.KeyExists("parents-" + t));
Assert.IsFalse(db.KeyExists("children-" + t));
Assert.IsFalse(db.SetContains("tasks", t));
Assert.IsFalse(db.SetContains("submitted", t));
Assert.IsFalse(db.SetContains("complete", t));
Assert.IsFalse(db.SetContains("failed", t));
if (t == 3)
{
Assert.IsTrue(db.SetContains("abandoned", t));
db.SetRemove("abandoned", t);
}
else
Assert.IsFalse(db.SetContains("abandoned", t));
Assert.AreEqual(false, db.SetRemove("running", t));
}
Assert.AreEqual(0, db.ListRemove("workflowComplete", "1"));
Assert.AreEqual(0, db.ListRemove("workflowFailed", "1"));
Assert.IsFalse(db.KeyExists("workflow-tasks-1"));
Assert.IsFalse(db.KeyExists("workflow-remaining-1"));
Assert.IsFalse(db.SetContains("workflows", "1"));
}
public void CanCleanUpAfterAWorkflow()
{
var db = _mux.GetDatabase();
db.ScriptEvaluate("print(\"CanCleanUpAfterAWorkflow\")");
db.ScriptEvaluate("redis.call(\"flushdb\")");
var th = new TestTaskHandler();
var complete = new ManualResetEvent(false);
var wh = new WorkflowHandler();
wh.WorkflowComplete += (s, w) => { complete.Set(); };
using (var wm = new WorkflowManagement(_mux, th, wh, "test", null, new Lua()))
{
var workflowName = "TestWorkflow";
var tasks = new List<Task>();
tasks.Add(new Task { Type = "", Name = "TestNode1", Payload = "Node1", Parents = new string[] { }, Children = new string[] { "TestNode2" }, Workflow = workflowName });
tasks.Add(new Task { Type = "", Name = "TestNode2", Payload = "Node2", Parents = new string[] { "TestNode1" }, Children = new string[] { "TestNode3", "TestNode4", "TestNode5", "TestNode6" }, Workflow = workflowName });
tasks.Add(new Task { Type = "", Name = "TestNode3", Payload = "Node3", Parents = new string[] { "TestNode2" }, Children = new string[] { }, Workflow = workflowName });
tasks.Add(new Task { Type = "", Name = "TestNode4", Payload = "Node4", Parents = new string[] { "TestNode2" }, Children = new string[] { }, Workflow = workflowName });
tasks.Add(new Task { Type = "", Name = "TestNode5", Payload = "Node5", Parents = new string[] { "TestNode2" }, Children = new string[] { }, Workflow = workflowName });
tasks.Add(new Task { Type = "", Name = "TestNode6", Payload = "Node6", Parents = new string[] { "TestNode2" }, Children = new string[] { }, Workflow = workflowName });
var workflow = new Workflow { Name = workflowName, Tasks = tasks };
var workflowId = wm.PushWorkflow(workflow);
var workflowCompleted = complete.WaitOne(2000); // machine-performance dependent, but 2 seconds is a long time
Assert.IsTrue(workflowCompleted);
var info = wm.FetchWorkflowInformation(workflowId.ToString());
Assert.AreEqual("1", info.Id);
Assert.AreEqual(6, info.Tasks.Count);
wm.CleanUp(workflowId.ToString());
db = _mux.GetDatabase();
for (var t = 0; t < 6; t++)
{
Assert.IsFalse(db.KeyExists("task:" + t));
Assert.IsFalse(db.KeyExists("parents-" + t));
Assert.IsFalse(db.KeyExists("children-" + t));
Assert.IsFalse(db.SetContains("tasks", t));
Assert.IsFalse(db.SetContains("submitted", t));
Assert.IsFalse(db.SetContains("complete", t));
Assert.IsFalse(db.SetContains("failed", t));
Assert.IsFalse(db.SetContains("abandoned", t));
Assert.AreEqual(0, db.ListRemove("running", t));
}
Assert.AreEqual(0, db.ListRemove("workflowComplete", "1"));
Assert.AreEqual(0, db.ListRemove("workflowFailed", "1"));
Assert.IsFalse(db.KeyExists("workflow-tasks-1"));
Assert.IsFalse(db.KeyExists("workflow-remaining-1"));
Assert.IsFalse(db.SetContains("workflows", "1"));
Assert.IsFalse(db.KeyExists("submitted:1"));
Assert.IsFalse(db.KeyExists("running:1"));
}
}
public void CanCleanUpAfterAWorkflow()
{
var db = _mux.GetDatabase();
db.ScriptEvaluate("print(\"CanCleanUpAfterAWorkflow\")");
db.ScriptEvaluate("redis.call(\"flushdb\")");
var th = new TestTaskHandler();
var complete = new ManualResetEvent(false);
var wh = new WorkflowHandler();
wh.WorkflowComplete += (s, w) => { complete.Set(); };
using (var wm = new WorkflowManagement(_mux, th, wh, new WorkflowManagementId("test"), null, new Lua()))
{
var t1 = new TaskName("TestNode1");
var t2 = new TaskName("TestNode2");
var t3 = new TaskName("TestNode3");
var t4 = new TaskName("TestNode4");
var t5 = new TaskName("TestNode5");
var t6 = new TaskName("TestNode6");
var workflow = new Workflow(new WorkflowName("TestWorkflow"));
workflow.AddTask(t1, new Payload("Node1"), NoType, SimplePriority, EmptyTaskList, new[] { t2 });
workflow.AddTask(t2, new Payload("Node2"), NoType, SimplePriority, new[] { t1 }, new[] { t3, t4, t5, t6 });
workflow.AddTask(t3, new Payload("Node3"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t4, new Payload("Node4"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t5, new Payload("Node5"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
workflow.AddTask(t6, new Payload("Node6"), NoType, SimplePriority, new[] { t2 }, EmptyTaskList);
var workflowId = wm.PushWorkflow(workflow);
var workflowCompleted = complete.WaitOne(2000); // machine-performance dependent, but 2 seconds is a long time
Assert.IsTrue(workflowCompleted);
var info = wm.FetchWorkflowInformation(workflowId.ToString());
Assert.AreEqual("1", info.Id);
Assert.AreEqual(6, info.Tasks.Count);
wm.CleanUp(workflowId.ToString());
db = _mux.GetDatabase();
for (var t = 0; t < 6; t++)
{
Assert.IsFalse(db.KeyExists("task:" + t));
Assert.IsFalse(db.KeyExists("parents-" + t));
Assert.IsFalse(db.KeyExists("children-" + t));
Assert.IsFalse(db.SetContains("tasks", t));
Assert.IsFalse(db.SetContains("submitted", t));
Assert.IsFalse(db.SetContains("complete", t));
Assert.IsFalse(db.SetContains("failed", t));
Assert.IsFalse(db.SetContains("abandoned", t));
Assert.AreEqual(0, db.ListRemove("running", t));
}
Assert.AreEqual(0, db.ListRemove("workflowComplete", "1"));
Assert.AreEqual(0, db.ListRemove("workflowFailed", "1"));
Assert.IsFalse(db.KeyExists("workflow-tasks-1"));
Assert.IsFalse(db.KeyExists("workflow-remaining-1"));
Assert.IsFalse(db.SetContains("workflows", "1"));
Assert.IsFalse(db.KeyExists("submitted:1"));
Assert.IsFalse(db.KeyExists("running:1"));
}
}
public void CanCleanUpAfterAFailedWorkflow()
{
var db = _mux.GetDatabase();
db.ScriptEvaluate("print(\"CanCleanUpAfterAFailedWorkflow\")");
db.ScriptEvaluate("redis.call(\"flushdb\")");
var th = new ErroringTestWithLongRunnerTaskHandler("Node4", "Node3");
var complete = new ManualResetEvent(false);
var failed = new ManualResetEvent(false);
var exception = new ManualResetEvent(false);
var events = new List <string>();
var wh = new WorkflowHandler();
wh.WorkflowComplete += (s, w) => { events.Add("complete"); complete.Set(); };
wh.WorkflowFailed += (s, w) => { events.Add("failed"); failed.Set(); };
EventHandler <Exception> eh = (s, e) => { events.Add(e.Message); exception.Set(); };
using (var wm = new WorkflowManagement(_mux, th, wh, new WorkflowManagementId("test"), eh))
{
var t1 = new TaskName("TestNode1");
var t2 = new TaskName("TestNode2");
var t3 = new TaskName("TestNode3");
var t4 = new TaskName("TestNode4");
var workflow = new Workflow(new WorkflowName("TestWorkflow"));
workflow.AddTask(t1, new Payload("Node1"), NoType, SimplePriority, EmptyTaskList, new [] { t2 });
workflow.AddTask(t2, new Payload("Node2"), NoType, SimplePriority, new [] { t1 }, new [] { t3, t4 });
workflow.AddTask(t3, new Payload("Node3"), NoType, SimplePriority, new [] { t2 }, EmptyTaskList);
workflow.AddTask(t4, new Payload("Node4"), NoType, SimplePriority, new [] { t2 }, EmptyTaskList);
var workflowId = wm.PushWorkflow(workflow);
var result = WaitHandle.WaitAny(new[] { exception, failed, complete }, 2000);
if (result == 0)
{
throw new Exception("Failed in workflow operation"); // in a real app, handler could add exception to a list to process
}
// In principle this is a failed workflow, as one of the tasks will fail
// However, if all tasks get started, then the succeeding leaf node finishes first, this will be marked successful
// Is a workflow considered complete when all tasks have started, or when all tasks have finished?
// CHoose latter.
Console.WriteLine("TaskHandler events"); foreach (var ev in th.Events)
{
Console.WriteLine("TH event: " + ev);
}
Console.WriteLine("WM events"); foreach (var ev in events)
{
Console.WriteLine("Event: " + ev);
}
Assert.AreEqual(1, result);
wm.CleanUp(workflowId.ToString());
}
// Should leave highwatermark id keys alone
db = _mux.GetDatabase();
for (var t = 0; t < 4; t++)
{
Assert.IsFalse(db.KeyExists("task:" + t));
Assert.IsFalse(db.KeyExists("parents-" + t));
Assert.IsFalse(db.KeyExists("children-" + t));
Assert.IsFalse(db.SetContains("tasks", t));
Assert.IsFalse(db.SetContains("submitted", t));
Assert.IsFalse(db.SetContains("complete", t));
Assert.IsFalse(db.SetContains("failed", t));
if (t == 3)
{
Assert.IsTrue(db.SetContains("abandoned", t));
db.SetRemove("abandoned", t);
}
else
{
Assert.IsFalse(db.SetContains("abandoned", t));
}
Assert.AreEqual(false, db.SetRemove("running", t));
}
Assert.AreEqual(0, db.ListRemove("workflowComplete", "1"));
Assert.AreEqual(0, db.ListRemove("workflowFailed", "1"));
Assert.IsFalse(db.KeyExists("workflow-tasks-1"));
Assert.IsFalse(db.KeyExists("workflow-remaining-1"));
Assert.IsFalse(db.SetContains("workflows", "1"));
}
