pandoc/test/command/7397.md

````
% pandoc -t markdown
~~~~ { .haskell startFrom="100"}
qsort []     = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
               qsort (filter (>= x) xs)
~~~~
^D
``` {.haskell startFrom="100"}
qsort []     = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
               qsort (filter (>= x) xs)
```
````
Fix test for #7397 2021-06-21 18:30:23 +02:00			````
Markdown writer: Fix regression in code blocks with attributes. Code blocks with a single class but nonempty attributes were having attributes drop as a result of #7242. Closes #7397. 2021-06-21 17:49:00 +02:00			`% pandoc -t markdown`
			`~~~~ { .haskell startFrom="100"}`
			`qsort [] = []`
			`qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++`
			`qsort (filter (>= x) xs)`
			`~~~~`
			`^D`
			``` {.haskell startFrom="100"}
			`qsort [] = []`
			`qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++`
			`qsort (filter (>= x) xs)`
			```
Fix test for #7397 2021-06-21 18:30:23 +02:00			````