class BaseMessage
    include DataMapper::Resource

    property :id, Serial, :index => true
    property :body, Text

    has n, :fuzz_results
end

class FuzzResult
    include DataMapper::Resource

    property :id, Serial, :index => true
    property :tag, String
    property :original, Text
    property :subst, Text
    property :iteration, Integer
    property :response, Text
    property :headers, Text

    belongs_to :base_message
end

class FuzzRun
    include DataMapper::Resource

    property :id, Serial, :index => true
    property :started_at, Time
    property :status, Enum[:running, :stopped], :default => :running, :index => true

    has 1, :base_message
end

class FuzzMessage
    include DataMapper::Resource

    property :id, Serial, :index => true
    property :name, String
    property :text, Text
end