LPeg模式匹配不包含连续的横线的字符串

我正在尝试编写一个LPeg模式来匹配以下字符串:

• 以字母开头
• 其后包含字母数字字符
• 不包含两个或两个以上的连续横线（例如，不允许 test--string）

参考正则表达式[a-zA-Z](-?[a-zA-Z0-9])*匹配我想要的内容。

以下是我正在使用的代码，仅供参考：

require "lpeg"
P，R，C = lpeg.P，lpeg.R，lpeg.C

dash  = P"-"
ucase  = R"AZ"
lcase  = R"az"
digit  = R"09"
letter = ucase + lcase
alphanum = letter + digit

str_match = C(letter * ((dash^-1) * alphanum)^0)

strs = {
    "1too",
    "too0",
    "t-t-t",
    "t-t--t",
    "t--t-t",
    "t-1-t",
    "t--t",
    "t-one1",
    "1-1",
    "t-1",
    "t",
    "tt",
    "t1",
    "1",
}

for _,v in ipairs(strs) do
    if lpeg.match(str_match,v) ~= nil then
        print(v," => match!")
    else
        print(v," => no match")
    end
end

但是，令我非常沮丧的是，我得到了以下输出：

1too     => no match
too0     => match!
t-t-t    => match!
t-t--t   => match!
t--t-t   => match!
t-1-t    => match!
t--t     => match!
t-one1   => match!
1-1      => no match
t-1      => match!
t        => match!
tt       => match!
t1       => match!
1        => no match

不管代码输出是什么，t-t--t、t--t-t和t--t都不应匹配。