File: DER.hs

package info (click to toggle)
haskell-hsopenssl 0.11.7.8-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 556 kB
  • sloc: haskell: 1,562; ansic: 451; makefile: 16
file content (11 lines) | stat: -rw-r--r-- 264 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
module Main (main) where

import OpenSSL.RSA
import OpenSSL.DER
import TestUtils

main :: IO ()
main = do
    keyPair <- generateRSAKey 1024 3 Nothing
    pubKey <- rsaCopyPublic keyPair
    assertEqual "encodeDecode" (Just pubKey) (fromDERPub (toDERPub keyPair))